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1.0  Scope 


1.1  Identification 

This  User's  Manual  provides  information,  to  users  and 
programmers,  about  three  algorithms  for  the  Cut  Order 
Planning  problem:  Savings,  Cherry  Picking,  and  Improvement. 
This  information  will  enable  the  user  to  operate  the 
programs  and  give  the  software  programmer  a  better 
understanding  of  the  software  written. 


1.2  Purpose 

The  algorithms  were  designed  to  analyze  the  cut  order 
planning  problem.  The  first  algorithm  uses  a  "computed 
savings"  to  combine  sections  in  a  cut  plan.  The  second 
algorithm  is  also  a  constructive  algorithm  which  combines 
pieces  into  one  section  at  a  time.  The  third  algorithm 
tries  to  improve  an  existing  solution  by  replacing  pieces 
into  other  sections.  The  algorithms  presented  in  this 
document  are  used  for  testing  purposes  only. 


2.0  Equipment  Configuration 

The  software  was  written  on  an  IBM  PC  platform  with 
MSDOS  environment.  All  code  is  written  in  the  Ansi  C 
format.  The  outputs  were  generated  with  a  386/25MHZ 
machine . 


3.0  User  Reoulrementa 

A  typical  user  of  the  algorithms  should  be  familiar 
with  basic  computer  skills.  The  user  needs  to  know  how  to 
edit  an  Ascii  file  (input  file)  and  print  a  listing  of  the 
output  file  either  on  the  screen  or  to  a  printer. 
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A  software  programmer  must  have  knowledge  of  the  C 
programming  language  to  edit  any  of  the  procedures,  and 
should  have  knowledge  of  either  the  Pascal  or  C  languages  to 
read  the  code.  The  code  contains  basic  array  structures, 
but  no  linked  list  structures.  Therefore  the  user  does  not 
need  extensive  knowledge  with  the  use  of  pointers  but  needs 
to  understand  arrays  and  the  allocation  of  memory  for  such 
array  structures.  The  software  programmer  must  also  be 
familiar  with  makefiles  and  how  to  compile  and  link  the 
separate  procedures. 


4.0  Algorithm  Description 

4.1  Savings  Algorithm 

4.1.1  Functional  Description 

The  Savings  algorithm  uses  a  "computed  savings"  to 
combine  sections  in  a  cut  plan.  The  algorithm  begins  with 
each  unit  of  fabric  ordered  in  a  separate  section  of  initial 
ply  height.  Sections  in  this  list  are  continuously  merged 
into  one  section  based  on  which  merges  provide  the  best 
savings  in  inches  of  fabric.  As  two  sections  are  merged  the 
new  section  is  placed  in  a  partial  section.  This  partial 
section  is  then  merged  with  other  sections  until  the  maximum 
sizes  allowed  per  section  is  reached.  Once  this  partial 
section  is  full,  it  is  saved  in  a  permanent  list  of  sections 
and  can  no  longer  be  used  to  merge  with  other  sections.  At 
this  point  a  new  partial  section  is  created  by  combining  two 
sections  and  the  process  begins  again.  Sections  are  only 
merged  if  the  new  section  created  does  not  exceed  the 
maximum  ply  height  or  the  maximum  sizes  allowed  per  section. 
When  no  more  mergers  are  possible  the  solution  is  written  to 
an  output  file  and  the  program  terminates. 
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Before  merging  sections  together,  the  program 
calculates  a  potential  savings  in  fabric  for  each  possible 
combination  of  sections.  There  are  basically  two  ways  to 
merge  two  sections.  If  the  two  sections  contain  the  same 
size  combination,  the  savings  can  be  computed  by  placing  one 
section  on  top  of  another.  The  savings  for  this  method  is 
based  on  the  saved  cutting  cost,  since  the  size  combination 
is  only  cut  once  instead  of  twice.  The  merger  for  sections 
containing  the  same  size  combination  can  also  be  achieved  by 
changing  the  size  combination  to  include  two  of  each  of  the 
original  sizes  and  leaving  the  ply  height  the  same.  The 
savings  for  this  method  is  the  decreased  cost  of  fabric 
required  for  spreading  the  merged  sections.  If  the  two 
sections  do  not  contain  the  same  sizes  then  the  savings  is 
computed  by  changing  the  size  combination  and  leaving  the 
ply  height  the  same. 

Appendix  C  describes  the  Savings  algorithm  in  detail 
and  Appendix  D  contains  a  printout  of  the  source  code  for 
the  Savings  algorithm. 

The  Savings  algorithm  is  run  simply  by  typing  in 
"savings"  at  the  DOS  prompt  in  the  directory  in  which  the 
executable  program  is  located.  An  input  file,  explained  in 
section  4.1.2,  must  reside  in  the  current  directory  in  which 
the  user  is  running  the  Savings  algorithm.  All  output  is 
written  to  a  file  also  in  that  current  directory. 


4.1.2  Input  File 

The  input  file  is  an  Ascii  file  which  must  contain  the 
variables  needed  to  run  the  Savings  algorithm.  The  inputs 
include  (1)  an  order  to  be  cut,  consisting  of  various  sizes 
required,  the  quantity  desired  of  each  of  these  sizes,  and 
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the  perimeter  around  the  size  to  cut.  (2)  The  number  of 
units  over  or  under  the  demand  that  will  be  allowed.  (3)  The 
parameter  K  which  determines  the  number  of  iterations  after 
which  the  savings  list  will  be  updated.  (4)  The  ply  height 
of  each  of  the  initial  sections.  (5)  List  of  Lj^'s  (these  are 
the  fabric  lengths  required  for  cutting  a  size  combination  i 
-  like  small  and  large  together  -  in  a  particular  section. 

(6)  The  maximum  ply  height  allowed.  (7)  The  maximum  number  - 
of  sizes  allowed  per  section.  (8)  The  cutting  cost  per  inch 
of  fabric.  (9)  The  unit  cost  of  the  fabric. 


> 

Each  input  is  placed  on  a  separate  line  on  the  input 
file  and  must  be  placed  in  the  following  order  represented 
below: 


int  ou_units 

int  max_ply 
int  max_sizes 
int  init__ply 
int  k 

int  q 

int  cut_cost 
int  unit_cost 
order_t  order 
list  t  list 


number  of  units  over  or  under 

the  demand 

maximum  ply  height 

max  sizes  allowed  per  section 

initial  ply  height 

number  of  iterations  after  which 

the  savings  list  is  updated 

the  ply  height  in  which  to  use 

cutting  cost  per  inch 

unit  cost  of  size 

the  order 

list  of  Li's  (fabric  lengths 
for  each  size  combination) 
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The  beginning  of  the  input  file  would  appear  as 
follows: 


3 

:  ou_units 

3 

:  max_sizes 

4 

:  max_ply 

1 

:  init  ply 

1 

:  k 

1 

:  cut_cost 

1 

:  unit_cost 

5 

120  size-30 

:  order  (  # 

5 

130  size-32 

:  order  (  # 

5 

140  size-34 

:  order  (  # 

1 

0  -1  15.31 

:  list  (  1 

1 

1  -1  15.56 

:  list  (  1 

perimeter,  string  for  size) 
perimeter,  string  for  size) 
perimeter,  string  for  size) 
size  0,  inches) 
size  1,  inches) 


-2  :  end 

A  detailed  description  of  the  data  structures  for  an 
order  and  the  list  of  L^s  is  in  section  4.1.4. 

As  each  row  of  the  order  is  read  from  the  input  file 
the  values  are  placed  in  the  ord_var_t  structure.  For 
example  the  first  row  (5  120  size-30)  is  placed  as  follows: 

number [ 0 ]  =5 
ch_sizes[0]  =  ”size-30” 
perimeter [0]  =  120 

As  each  row  in  the  list  of  L^s  is  read  the  variable  are 
placed  in  the  list_t  array  as  follows: 


List[0] .sizes[0]  =1  (  l  size-30  ) 

Listfo] .sizesfl]  =0  (  o  size-32  ) 

List [0] . inches  =  15.31 

List[l] .sizes[0]  =0  (0  size-30  ) 

Listfl] .sizes[l]  =  l  (1  size-32  ) 

List[l] . inches  =  15.56 

Appendix  A  contains  a  printout  of  the  entire  input 

file. 
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4.1.3  Output  File 

The  output  file  ("OUTPUT")  lists  the  sizes  in  each 
section,  the  inches  for  that  section,  the  ply  height,  and 
the  total  inches  for  the  section  (ply  x  inches) .  At  the  end 
the  total  inches  are  printed  along  with  the  number  of  units 
over  or  under  the  demand.  A  sample  output  file  is  in 
Appendix  B. 


4.1.4  Data  Structures 

MAX_SIZES  defines  the  maximum  number  of  different  sizes 
possible  in  one  order. 

MAX_LIST  defines  the  maximum  number  of  possible  size 
combinations  as  in  the  input  file. 

MAX_SAVINGS  defines  the  maximum  number  of  savings  that 
will  be  kept  in  a  list. 

The  following  structure  holds  the  order  which  consists 
of  the  amount  of  each  size  needed,  the  string  value  that 
will  be  written  to  the  output  file  associated  with  that 
size,  and  the  perimeter  of  the  particular  size: 


struct  order  { 

order_t  number; 

sizes_t  ch_sizes; 

int  perimeter [MAX_S I ZES] ; 

}  ord_var_t ; 

Order. number  is  an  array  which  holds  the  amount  of 
each  size  ordered.  It  is  defined  as  follows: 
typedef  int  order_t [MAX_SIZES] . 

Order . ch_sizes  is  an  array  which  holds  the  string 
value  associated  with  the  size,  e.g  "Size-32".  It  is 
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defined  as  follows: 

typedef  char  sizes_t[MAX_SIZES] [10]  ; 

Order. perimeter  is  an  array  which  holds  the  perimeter 
of  each  size. 

Arrays  in  the  C  language  begin  with  zero  and  not  one. 
Therefore  there  will  be  a  value  in  the  first  position, 
zero.  If  the  order  is  3  size-30  and  5  size-32,  the 
ord_var_t  structure  will  hold  the  following  numbers: 

number [0]  =  3  number [1]  =  5 

ch_sizes[0]  =  ••size-30"  ch_sizes[l]  =  '•size-32" 
perimeter[0]  =  120  perimeter[l]  =130 


The  following  structure  holds  the  list  of  size 
combinations : 


struct  list_t  { 
order_t  sizes; 
float  inches: 

}  list 

List. sizes  is  an  array  which  holds  the  amount  of  each 
size  in  the  specific  size  combination. 

List. inches  holds  the  amount  of  fabric  in  inches  need 
for  that  specific  sizes  combination. 

An  example  of  what  is  in  the  list[]  structure: 

sizes[0]  =1  (1  size-30  ) 

sizes[l]  =1  (1  size-32) 

inches  =  28.01 


The  following  structure  holds  the  data  necessary  for 
each  section. 
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struct  section_t  { 
order_t  sizes; 
int  ply_height; 

char  merged ; 

}  section 

Section. order  is  an  array  which  holds  the  amount  of 
each  size  in  the  specific  size  combination  for  this 
particular  section. 

Section. ply_height  is  the  ply  height  of  that  section. 

Sect ion. merged  tells  whether  the  section  has  already 
been  merged  or  not. 


The  following  structure  contains  the  data  for  each 
savings  calculated  between  two  sections: 


struct  savings_t  { 
int  sectl 

int  sect2 

int  ply  height; 

float  savings; 

int  type ; 

int  plyl ; 

int  ply 2; 

}  save_list; 

Save_list. sectl  and  save_list . sect2  are  the  numbers  of 
the  two  sections  being  merged.  These  numbers 
correspond  to  their  position  in  the  section  list. 

Save_list.ply_height  is  the  ply  height  of  the  new 
combined  section. 

Save  list. savings  is  the  savings  achieved  if  these  two 
sections  are  merged. 

Save_list. type  is  the  type  of  merge  that  is  needed. 

1  :  Sizes  the  same,  place  on  top  of  another 

2  :  Sizes  different,  rearrange  size  combination 

Save_list.plyl  and  save_list.ply2  are  the  different 
ply  heights  of  sectl  and  sect2. 
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4.1.5  Module  Definitions 

4. 1.5.1  Case_ai.c 

Case_ai()  computes  the  savings  of  placing  one  section 
on  top  of  the  other.  The  two  sections  must  have  the  same 
size  combination. 

4. 1.5. 2  Case_aii.c 

Case_aii()  computes  the  savings  of  rearranging  the  size 
combination  of  the  two  sections  into  one  section  but  keeping 
the  ply  height  the  same. 

4 . 1 . 5 . 3  Compute . c 

Compute_savings ( )  looks  at  the  two  sections  to 
determine  which  way  to  compute  the  savings.  If  the  two 
sections  have  the  same  sizes  combination  then  case_ai.c  is 
called  else  case_aii.c  is  called.  Ply  height  of  the 
sections  are  adjusted  and  the  savings  is  returned  to  the 
main  program. 

4. 1.5.4  Findinch.c 

Find_inches ( )  searches  through  the  list  of  inputs  to 
find  the  inches  for  the  specific  size  combination  of  a 
section. 

4. 1.5. 5  Getparm.c 

Get_parameters ( )  opens  the  input  file  and  reads  in  all 
the  inputs  into  their  appropriate  variables  and  structures. 

4. 1.5. 6  Globals.c 

Globals  defines  and  initializes  all  the  global 
variables  for  the  Savings  algorithm. 
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4. 1.5. 7  Savings. c 

This  file  contains  the  main  program  to  execute  the 
savings  algorithm.  The  procedure  begins  by  allocating 
enough  memory  for  all  the  variables  and  lists  and  then  calls 
get_parameters ( )  to  read  the  input  file.  The  main  loop  in 
the  procedure  calculates  the  savings  and  merges  sections 
until  no  more  merges  are  possible  by  calling  the  other 
various  procedures.  This  procedure  then  writes  all  the 
final  results  to  the  file  ••Output".  All  allocated  space  is 
freed  and  all  files  are  closed. 

4. 1.5. 8  Savdec.h 

This  file  contains  all  the  definitions  for  various 
structures  and  procedures  that  are  used  by  the  Savings 
algorithm. 


4. 1.5. 9  Savelcl.h 

This  file  defines  the  global  variables  for  the  Savings 
algorithm  as  external  variables  so  that  the  program  will 
compile.  The  actual  definition  and  initialization  is  in  the 
globals.c  file. 

4.1.5.10  Makefile. pc 

This  file  contains  the  method  in  which  to  compile  all 
the  procedures  and  create  the  executable  file  Savings.exe. 

To  execute  this  file  type  ••make  makef ile.pc^^ . 


4.1.6  Error  Messages 

All  error  messages  provide  a  short  message  and  the  file 
in  which  the  error  occurred. 

The  following  message  appears  when  the  program  has 
trouble  opening  a  file  in  which  to  write  the  output. 
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•'CANNOT  OPEN  OUTPUT  FILE  savings. c" 


The  following  message  appears  when  the  program  has 
trouble  allocating  memory  to  any  structure  needed  for  the 
program. 

"ALLOCATION  ERROR  for  list  savings. c" 


The  following  error  appears  when  the  program  tries  a 
specific  combination  of  sizes  in  one  section  but  can  not 
locate  the  inches  for  this  combination  in  the  input  list. 
The  user  should  check  the  input  file  to  determine  if  the 
value  exists  or  not. 

"CANNOT  FIND  1  size-30  2  size-32  findinch.c" 


4.2  Cherry  Picking  Algorithm 

4.2.1  Functional  Description 

The  Cherry  Picking  algorithm  builds  sections  by 
combining  certain  sizes  based  on  the  best  utilization  of 
fabric.  The  algorithm  begins  by  choosing  the  first  (Ql)  and 
second  (Q2)  most  numerous  sizes  in  the  order.  OU  will 
represent  the  number  of  units  over  or  under  the  demand  that 
is  allowed.  Any  size  which  has  an  order  quantity  greater 
than  (Q2  -  OU)  is  placed  into  sections  such  that  a  minimal 
amount  of  fabric  is  used.  All  quantities  of  sizes  assigned 
to  a  section  are  reduced  appropriately.  This  process 
continues  until  all  sizes  have  been  assigned  to  sections. 
When  this  occurs  the  program  terminates  and  the  output  is 
written  to  a  file. 
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Appendix  C  describes  the  algorithm  in  greater  detail 
and  Appendix  E  contains  the  source  code  for  the  Cherry 
Picking  algorithm. 

The  Cherry  algorithm  is  run  simply  by  typing  in 
"cherry"  at  the  DOS  prompt  in  the  directory  in  which  the 
executable  program  is  located.  An  input  file,  explained  in 
section  4.2.2,  must  reside  in  the  current  directory  in  which 
the  user  is  running  the  Cherry  algorithm.  All  output  is 
written  to  a  file  also  in  that  current  directory. 


4.2.2  Input  File 

The  input  file  is  an  Ascii  file  which  must  contain  the 
variables  needed  to  run  the  Savings  algorithm.  The  inputs 
include  (1)  an  order  to  be  cut,  consisting  of  various  sizes 
required,  and  the  quantity  desired  of  each  of  these  sizes. 
(2)  The  number  of  units  over  or  under  the  demand  that  will 
be  allowed.  (3)  List  of  L^'s  (these  are  the  fabric  lengths 
required  for  cutting  a  size  combination  i  -  like  small  and 
large  together  -  in  a  particular  section.  (4)  The  maximum 
ply  height  allowed.  (5)  The  maximum  number  of  sizes  allowed 
per  section. 

Each  input  is  placed  on  a  separate  line  on  the  input 
file  and  must  be  placed  in  the  following  order  represented 
below: 


int  ou_units 

int  max_ply 
int  max_sizes 
order_t  order 
list  t  list 


number  of  units  over  or  under 

the  demand 

maximum  ply  height 

max  sizes  allowed  per  section 

the  amount  of  each  size  needed 

list  of  I's  (fabric  lengths 

for  each  sizes  combination) 
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The  input  file  would  appear  as  follows: 


3 

3 

4 

5  120  size-30 
5  130  size-32 
5  140  size-34 

10- 1  15.31 

11- 1  15.56 


ou_units 

inax_sizes 

inax_ply 

order  (  #,  perimeter,  string  for  size) 

order  (  #,  perimeter,  string  for  size) 

order  (  #,  perimeter,  string  for  size) 

list  (  1  size  0,  inches) 

list  (  1  size  1,  inches) 


-2  :  end 

A  detailed  description  of  the  data  structures  for  an 
order  and  the  list  of  L^s  is  in  section  4.2.4. 


As  each  row  of  the  order  is  read  from  the  input  file 
the  values  are  placed  in  the  ord_var_t  structure.  For 
example  the  first  row  (5  120  size-30)  is  placed  as  follows: 


number [ 0 ]  =5 
ch_sizes[0]  =  ''size-30” 
perimeter[0]  =  120 

As  each  row  in  the  list  of  L^s  is  read  the  variable  are 
placed  in  the  list_t  array  as  follows: 


List[0] .sizes[0]  =  1 
Listfo] .sizesfl]  =  0 
List [0] . inches  =  15.31 


(  1  size-30  ) 
(  0  size-32  ) 


List[l] .sizes[0]  =  0 
List[l] .sizes[l]  =  1 
List[l] . inches  =  15.56 


(  0  size-30  ) 
(  1  size-32  ) 


Appendix  A  contains  a  printout  of  the  entire  input 

file. 
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4.2.3  Output  File 

The  output  file  ("OUTPUT")  lists  the  sizes  in  each 
section,  the  inches  for  that  section,  the  ply  height,  and 
the  total  inches  for  the  section  (ply  x  inches) .  At  the  end 
the  total  inches  are  printed  along  with  the  number  of  units 
over  or  under  the  demand.  A  sample  output  file  is  in 
Appendix  B. 


4.2.4  Data  Structures 

MAX_SIZES  defines  the  maximum  number  of  different  sizes 
possible  in  one  order. 

MAX_LIST  defines  the  maximum  number  of  possible  size 
combinations  as  in  the  input  file. 

The  following  structure  holds  the  order  which  consists 
of  the  quantity  amount  of  each  size  needed,  the  string  value 
that  will  be  written  to  the  output  file  associated  with  that 
size,  and  the  perimeter  of  the  particular  size: 


struct  order  { 

order_t  number; 

sizes_t  ch_sizes; 

int  perimeter [MAX_S I ZES] ; 

}  ord_var_t ; 

Order. number  is  an  array  which  holds  the  amount  of 
each  size  ordered.  It  is  defined  as  follows; 
typedef  int  order_t [MAX_SIZES] . 

Order .ch_sizes  is  an  array  which  holds  the  string 
value  associated  with  the  size,  e.g  "Size-32".  It  is 
defined  as  follows: 

typedef  char  sizes_t [MAX_SIZES] [ 10]  ; 

Order .perimeter  is  an  array  which  holds  the  perimeter 
of  each  size. 
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Arrays  in  the  C  language  begin  with  zero  and  not  one. 
Therefore  there  will  be  a  value  in  the  first  position, 
zero.  If  the  order  is  3  size-30  and  5  size-32,  the 
ord_var_t  structure  will  hold  the  following  numbers: 

number [0]  =  3  number [1]  =  5 

ch_sizes[0]  =  ''size-30''  ch_sizes[l]  =  "size-32" 
perimeter[0]  =  120  perimeter[l]  =  130 


The  following  structure  holds  the  list  of  Lis: 


struct  list_t  { 
order_t  sizes; 
float  inches: 

}  list 

List. sizes  is  an  array  which  holds  the  amount  of  each 
size  in  the  specific  size  combination. 

List. inches  holds  the  amount  of  fabric  in  inches  need 
for  that  specific  sizes  combination. 

An  example  of  what  is  in  the  list[]  structure: 

sizes[0]  =1  (1  size-30  ) 

sizesfl]  =1  (1  size-32) 

inches  =  28.01 


The  following  structure  holds  the  data  necessary  for 
each  section. 


struct  section_t  { 
order_t  sizes; 
int  ply_height; 

}  section 

Section. order  is  an  array  which  holds  the  amount  of 
each  size  in  the  specific  size  combination  for  this 
particular  section. 

Section. ply_height  is  the  ply  height  of  that  section. 


15 


4.2.5  Module  Descriptions 

4 . 2 . 5 . 1  Cherry . c 

This  file  contains  the  main  program  which  executes  the 
Cherry  Picking  algorithm.  The  procedure  begins  by 
allocating  memory  for  all  the  variables  and  lists  for  the 
program  and  calls  get_parameters ( )  to  read  the  input  file. 
The  main  loop  in  the  program  chooses  the  best  combination  of 
sizes  in  the  set  S  by  calling  the  other  various  procedures. 
After  all  sizes  have  been  used  the  procedure  writes  the 
results  to  the  file  "Output",  releases  all  memory,  and 
closes  all  files. 

4. 2. 5. 2  Chkinch.c 

Check_inches ( )  detremines  if  the  total  inches 
calculated  from  the  current  combination  is  less  than  the 
previous  best  combination.  If  so  this  new  combination  is 
saved  in  a  temporary  section. 

4. 2. 5. 3  Clrtemp.c 

Clear_temp()  initializes  the  temporary  sections. 

4. 2. 5. 4  Combine. c 

Combine_inches  calls  f ind_inches ( )  to  calculated  the 
total  inches  for  a  specific  combination  of  sizes. 

4. 2. 5. 5  Cphold.c 

Copy_hold_to_sections ( )  copies  all  the  sections  in  the 
temporary  holding  segment  to  the  final  output  hold  segment 
of  sections. 


4. 2. 5. 6  Findinch.c 

Find_inches  searches  through  the  list  of  Lj^  inputs  to 
find  the  inches  for  a  specific  size  combination. 
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4. 2. 5. 7  Fives. c 

Fives  0  is  a  recursive  procedure  which  groups  sizes  in 
combinations  of  five.  Recursive  programming  means  it  keeps 
calling  itself  until  all  possible  combinations  are 
exhausted . 

4. 2. 5. 8  Fours.c 

Fours  0  is  a  recursive  procedure  which  groups  sizes  in 
combinations  of  four.  Recursive  programming  means  it  keeps 
calling  itself  until  all  possible  combinations  are 
exhausted . 

4. 2. 5. 9  Getparm.c 

Get_parameters ( )  reads  the  input  file  and  places  all 
input  variables  in  their  appropriate  structures. 

4.2.5.10  Globals.c 

Globals.c  defines  and  initializes  all  global  variables 
for  the  Cherry  Picking  algorithm. 

4.2.5.11  Ones.c 

Ones()  places  each  sizes  in  a  section  by  itself  and 
find  the  total  inches  for  all  these  sections  combined. 

4.2.5.12  Sixes. c 

Sixes  0  is  a  recursive  procedure  which  groups  sizes  in 
combinations  of  six.  Recursive  programming  means  it  keeps 
calling  itself  until  all  possible  combinations  are 
exhausted . 

4.2.5.13  Threes. c 

Threes  0  is  a  recursive  procedure  which  groups  sizes  in 
combinations  of  three.  Recursive  programming  means  it  keeps 
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calling  itself  until  all  possible  combinations  are 
exhausted . 

4.2.5.14  Twos.c 

Twos()  is  a  recursive  procedure  which  groups  sizes  in 
combinations  of  two.  Recursive  programming  means  it  keeps 
calling  itself  until  all  possible  combinations  are 
exhausted . 

4.2.5.15  Cherdec.h 

This  file  contains  all  the  definitions  for  various 
structures  and  procedures  that  are  used  by  the  Cherry 
Picking  algorithm. 

4.2.5.16  Cherlcl.h 

This  file  defines  the  global  variables  for  the  Cherry 
Picking  algorithm  as  external  variables  so  that  the  program 
will  compile.  The  actual  definition  and  initialization  is 
in  the  globals.c  file. 

4.2.5.17  Makefile. pc 

This  file  contains  the  method  in  which  to  compile  all 
the  procedures  and  create  the  executable  file  Cherry.exe. 

To  execute  this  file  type  "make  makefile. pc” . 


4.2.6  Error  Messages 

All  error  messages  give  a  short  message  and  the  file  in 
which  the  error  occurred. 

The  following  message  appears  when  the  program  has 
trouble  opening  a  file  in  which  to  write  the  output. 
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"CANNOT  OPEN  OUTPUT  FILE  cherry. c" 


The  following  message  appears  when  the  program  has 
trouble  allocating  memory  to  any  structure  needed  for  the 
program. 

"ALLOCATION  ERROR  for  list  cherry. c" 


The  following  error  appears  when  the  program  tries  a 
specific  combination  of  sizes  in  one  section  but  can  not 
locate  the  inches  for  this  combination  in  the  input  list. 
The  user  should  check  the  input  file  to  determine  if  the 
value  exists  or  not. 

"CANNOT  FIND  1  size-30  2  size-32  findinch.c" 


4.3  Improvement  Algorithm 

4.3.1  Functional  Description 

4.3. 1.1  Improvement  Algorithm  on  current  solution 
The  Improvement  algorithm  takes  a  current  solution  for 
a  cut  plan  and  tries  to  improve  this  solution  by  exchanging 
sizes  in  different  sections.  The  algorithm  begins  by  first 
examining  the  current  solution  to  see  if  any  sections  can  be 
combined  to  make  one  section  that  requires  less  fabric  than 
the  two  sections.  The  new  section  cannot  violate  the 
constraints  on  the  maximum  ply  height  or  the  maximum  sizes 
allowed  per  section.  Then  the  algorithm  begins  with  any 
section  and  tries  to  transfer  a  portion  of  the  section  to 
another  section,  or  swap  a  portion  of  the  section  with  the 
portion  of  another  section  without  violating  the  constraint 
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of  the  maximum  number  of  sizes  allowed  per  section.  When 
all  possible  transfers  and  swaps  have  been  examined  for  the 
current  section,  the  best  transfer  or  swap  is  made  and  the 
process  begins  again  for  the  next  section.  This  process  is 
continued  until  no  more  transfers  or  swaps  that  improve  the 
solution  can  be  made.  At  this  point  the  new  solution  is 
written  to  the  output  file  and  the  program  terminates. 

Before  actually  transferring  or  swapping  a  portion  of  a 
section,  the  program  calculates  a  possible  savings  in  fabric 
for  each  possible  combination  of  sections.  There  are 
basically  two  ways  to  transfer  or  swap  sizes.  If  the 
portion  taken  from  one  section  and  the  candidate  section 
contain  the  same  size  combination  the  savings  is  computed  by 
placing  the  portion  on  top  of  the  candidate  section.  The 
savings  for  this  method  is  based  on  the  saved  cutting  cost 
since  the  size  combination  is  only  cut  once  instead  of 
twice.  The  savings  for  the  merger  of  a  portion  of  the 
original  section  and  the  entire  candidate  section  containing 
the  same  size  combination  can  also  be  achieved  by  adding  the 
sizes  in  the  extracted  portion  to  the  new  section  and 
leaving  the  ply  height  the  same.  The  savings  for  this 
method  is  the  decreased  cost  of  fabric  required  for 
spreading  the  merged  sections.  If  the  portion  taken  from 
one  section  and  candidate  section  do  not  contain  the  same 
size  combination  then  the  savings  is  computed  by  changing 
the  size  combination  and  leaving  the  ply  height  the  same. 

4. 3. 1.2  Improvement  Algorithm  on  an  order 

The  Improvement  algorithm  can  also  be  used  to  generate 
a  solution  from  an  initial  order  by  either  changing  the 
source  code  slightly  or  the  input  file.  To  accomplish  this 
each  unit  in  the  initial  order  must  be  placed  in  a  separate 
section  of  initial  ply  height.  The  improvement  algorithm 
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works  as  if  this  were  the  initial  solution  and  tries  to 
improve  upon  this  solution  as  explained  above. 

There  are  two  ways  to  set  up  this  initial  solution  for 
the  algorithm.  The  user  can  edit  the  input  file  to  show  a 
initial  solution  of  sections  with  initial  ply  heights  and 
one  unit  of  clothing  in  each  section.  (See  section  4.3.2 
Input  File) .  However  if  the  order  is  large  it  would  be 
easier  to  change  the  source  code  to  omit  reading  in  the 
first  solution  from  the  input  file  and  simply  place  each 
size  ordered  into  a  section  of  initial  ply  height.  The  two 
files  which  would  need  to  be  changed  are  the  getparm.c  file 
and  the  improve. c  file.  In  the  getparm.c  file  the  code  that 
reads  in  the  initial  solution  would  have  to  be  deleted.  In 
the  improve. c  file  new  source  code  would  have  to  be  added 
which  would  take  the  order  and  place  each  unit  of  fabric 
into  a  separate  section  of  initial  ply  height.  This  code  is 
represented  below: 

curr_section  =  0; 

for  (i=0;  i<  num_of_si2es;  i++)  { 

for  (j=0;  j<order[i];  j++)  { 

sections [curr_sect ion] .ply_height  = 

initial_ply ; 

sections[curr_section] .sizes[i]  =  1; 

++curr_section ; 

} 

} 

The  Improvement  algorithm  will  then  generate  a  solution 
based  on  the  order  and  write  out  the  solution  to  the  output 
file. 


Appendix  C  contains  a  detailed  description  of  the 
algorithm  and  Appendix  F  contains  the  source  code  for  the 
Improvement  algorithm. 
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The  Improvement  algorithm  is  run  simply  by  typing  in 
"improve”  at  the  DOS  prompt  in  the  directory  in  which  the 
Improvement  program  is  located.  An  input  file,  explained  in 
section  4.3.2  needs  to  be  in  the  current  directory  in  which 
the  user  is  running  the  Improvement  algorithm.  All  output 
is  written  to  a  file  also  in  that  current  directory. 


4.3.2  Input  File 

The  input  file  is  an  Ascii  file  which  must  contain  the 
variables  needed  to  run  the  Improvement  algorithm.  The 
inputs  include  (1)  an  order  to  be  cut,  consisting  of  various 
sizes  required,  and  the  quantity  desired  of  each  of  these 
sizes  (2)  The  number  of  units  over  or  under  the  demand  that 
will  be  allowed.  (3)  List  of  Lj^'s  (these  are  the  fabric 
lengths  required  for  cutting  a  size  combination  i  -  like 
small  and  large  together  -  in  a  particular  section.  (4)  A 
solution  to  the  problem  to  be  improved  upon.  The  solution 
contains  the  number  of  sections  and  the  sizes  and  ply  height 
assigned  to  each  of  those  sections,  the  fabric  length 
required  for  each  of  the  sections,  and  the  deviation  of  the 
number  of  units  to  be  cut  from  the  actual  number  of  units 
required  in  the  order.  (5)  The  maximum  ply  height  allowed. 

(6)  The  maximum  number  of  sizes  allowed  per  section.  (7)  The 
cutting  cost  per  inch  of  fabric.  (8)  The  unit  cost  of  the 
fabric. 

Each  input  is  placed  on  a  separate  line  on  the  input 
file  and  must  be  placed  in  the  following  order  represented 
below: 

int  ou_units  :  number  of  units  over  or  under 

the  demand  for  1st  solution 
int  max_ply  :  maximum  ply  height 
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int  max_sizes  :  max  sizes  allowed  per  section 

int  cut_cost  :  cutting  cost  per  inch 

int  unit_cost  :  unit  cost  of  size 

order_t  order  :  the  amount  of  each  size  needed 

,num_sections  :  the  #  of  sections  in  1st  solution 

sections_t  section  :  the  sections  for  the  1st  solution 

(sizes  in  section,  ply  height) 
old_ou_units  :  #  of  units  over  or  under  demand 

for  new  solution 

list_t  list  ;  list  of  I's  (fabric  lengths 

for  each  sizes  combination) 

The  beginning  of  the  input  file  would  appear  as 


follows: 


3 

3 

4 
1 
1 
1 


1 

5  120  size-30 
5  130  size-32 
5  140  size-34 
5  150  size-36 
2 

1023-12 

1223-13 


3 


10-1  15.31 


11-1  15.56 


ou_units 

max_sizes 

max_ply 

init_ply 

k 

cut_cost 

unit_cost 

order  (  #,  perimeter,  string  for  size) 

order  (  #,  perimeter,  string  for  size) 

order  (  #,  perimeter,  string  for  size) 

order  (  #,  perimeter,  string  for  size) 

number  of  sections 
sections  (sizes  ,  ply  height) 
sections  (sizes  ,  ply  height) 
ou_units  for  new_section 
list  (  1  size  0,  inches) 
list  (  1  size  1,  inches) 


-2  :  end 

A  detailed  description  of  the  data  structures  for  an 
order,  the  list  of  L^s,  and  a  solution  is  in  section  4.3.4. 
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As  each  row  of  the  order  is  read  from  the  input  file 
the  values  are  placed  in  the  ord_var_t  structure.  For 
example  the  first  row  (5  120  size-30)  is  placed  as  follows: 

number [0]  =  5 
ch_sizes[0]  =  ''size-30'' 
perimeter [0]  =  120 


The  input  file  for  the  original  solution  reads  as 
follows: 


1  size-30,  2  size-36  with  a  ply  height  of  2 
1  size-34,  2  size-36  with  a  ply  height  of  3 

As  each  row  in  the  input  file  for  the  original  solution 

is  read  the  variables  are  placed  in  a  section  list  as 

follows: 


section[0] .sizes[0]  =  1 
section[0]  .sizes [.■' ]  =  0 
section[0] .sizes[2]  =  0 
section[0] .sizes[3]  =  2 
section[0] .ply_height  =  2 


section[l] .sizes [0]  =  0 
sectionfl] .sizes[l]  =- 0 
sectionCl] .sizes[23  =  1 
section[l] .sizes[3]  =  2 
section[l] .ply_height  =  3 


As  each  row  in  the  list  of  L^s  is  read  the  variable  are 
placed  in  the  list_t  array  as  follows: 
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List[0] . sizes[0]  =1  (1  size-30  ) 

List[0] .sizesfl]  =  0 
List [ 0] . inches  =  15.31 

List[l] .sizes[0]  =  0 
List[l] .sizes[l]  =  1 
List [1] . inches  =  15.56 

Appendix  A  contains  a  printout  of  the  entire  input 

file. 


4.3.3  Output  File 

The  output  file  ("OUTPUT”)  lists  both  the  first 
solution,  given  as  the  input,  the  second  solution  generated 
by  the  algorithm,  the  sizes  in  each  section,  the  inches  for 
that  section,  the  ply  height,  and  the  total  inches  for  the 
section  (ply  x  inches) .  At  the  end  the  total  inches  are 
printed  along  with  the  number  of  units  over  or  under  the 
demand.  A  sample  output  file  is  in  Appendix  B. 


4.3.4  Data  Structures 

MAX_SIZES  defines  the  maximum  number  of  different  sizes 
possible  in  one  order. 

MAX_LIST  defines  the  maximum  number  of  possible  size 
combinations  as  in  the  input  file. 

The  following  structure  holds  the  order  which  consists 
of  the  amount  of  each  size  needed,  the  string  value  that 
will  be  written  to  the  output  file  associated  with  that 
size,  and  the  perimeter  of  the  particular  size: 

struct  order  { 

order_t  number; 
sizes_t  ch_sizes; 
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int  perimeter [MAX_SIZES] ; 

}  ord_var_t ; 

Order . number  is  an  array  which  holds  the  amount  of 
each  size  ordered.  It  is  defined  as  follows: 
typedef  int  order_t [MAX_SIZES] . 

Order .ch_sizes  is  an  array  which  holds  the  string 
value  associated  with  the  size,  e.g  ''Size-32''.  It  is 
defined  as  follows: 

typedef  char  sizes_t[MAX_SIZES] [10]  : 

Order .perimeter  is  an  array  which  holds  the  perimeter 
of  each  size. 

Arrays  in  the  C  language  begin  with  zero  and  not  one. 
Therefore  there  will  be  a  value  in  the  first  position, 
zero.  If  the  order  is  3  size-30  and  5  size-32,  the 
ord_var_t  structure  will  hold  the  following  numbers: 

number [0]  =  3  number [1]  =  5 

ch_sizes[0]  =  "size-30"  ch_sizes[l]  =  "size-32" 
perimeter[0]  =  120  perimeter[l]  =  130 


The  following  structure  holds  the  list  of  L^s: 


struct  list_t  { 
order_t  sizes; 
float  inches: 

}  list 

List. sizes  is  an  array  which  holds  the  amount  of  each 
size  in  the  specific  size  combination. 

List. inches  holds  the  amount  of  fabric  in  inches  need 
for  that  specific  sizes  combination. 

An  example  of  what  is  in  the  list[]  structure: 

sizes[0]  =1  (1  size-30  ) 

sizes[l]  =1  (1  size-32) 

inches  =  28.01 


The  following  structure  holds  the  data  necessary  for 
each  section. 
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struct  section_t  { 
order_t  sizes; 
int  ply_height; 

}  section 

Section. order  is  an  array  which  holds  the  amount  of 
each  size  in  the  specific  size  combination  for  this 
particular  section. 

Section. ply_height  is  the  ply  height  of  that  section. 


The  following  structure  contains  the  data  for  all  the 
savings  calculated  and  saved  in  a  list: 


struct  savings_t  { 
int  sectl 

int  sect2 

int  org_ply_height 

int  cand_ply_height 

float  savings; 

int  type ; 

order_t  org; 
order_t  cand; 
order_t  in_sectl; 
order_t  in_sect2 ; 

}  save_list; 

Save_list. sectl  and  save_list . sect2  are  the  numbers  of 
the  two  sections  being  merged.  These  numbers 
correspond  to  their  position  in  the  section  list. 

Save_list.org_ply_height  is  the  ply  height  of  the 
originating  section  in  which  the  portion  was  taken. 

Save_list . cand_ply_height  is  the  ply  height  of  the 
candidate  section  in  which  the  portion  will  be  added 
or  swapped. 

Save_list. savings  is  the  savings  achieved  if  these  two 
sections  are  merged. 

Save_list . type  is  the  type  of  merge  that  is  needed. 

1  :  Sizes  the  same,  place  on  top  of  another 

2  :  Sizes  different,  rearrange  size  combination 
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Save  list.org  is  an  array  which  holds  sizes  of  the 
originating  portion  to  transfer  or  swap. 

Save_list.cand  is  an  array  which  holds  the  sizes  of 
the  candidate  portion  to  transfer  or  swap. 

Save_list. in_sectl  is  an  array  which  holds  all  the 
sizes  in  the  original  section  before  the  swap  or 
transfer  is  made. 

Save_list. in_sect2  is  an  array  which  holds  all  the 
sizes  in  the  candidate  section  before  the  swap  or 
transfer  is  made. 


4.3.5  Module  Descriptions 

4. 3. 5.1  Case_ai.c 

Case_ai()  computes  the  savings  of  placing  one  section 
or  portion  of  a  section  on  top  of  another  section.  The  two 
sections  must  have  the  same  size  combination. 

4. 3. 5. 2  Case_aii.c 

Case_aii()  computes  the  savings  of  rearranging  the  size 
combination  of  the  two  sections  into  one  section  but  keeping 
the  ply  height  the  same. 

4. 3. 5. 3  Combply.c 

Combine_ply()  combines  sections  which  have  the  same 
sizes  combination  into  one  section  if  the  new  ply  height 
does  not  violate  the  maximum  ply  allowed. 

4. 3. 5. 4  Combsize.c 

Combine_sizes 0  combines  sections  which  have  the  same 
ply  height  if  the  number  of  sizes  in  the  section  does  not 
violate  the  maximum  number  of  sizes  allowed  per  section. 
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4. 3. 5. 5  Compswap.c 

Compute_swap_savings ()  looks  at  the  two  sizes  and 
sections  to  swap  to  determine  which  way  to  compute  the 
savings.  If  the  two  sections  have  the  same  size  combination 
then  case_ai.c  is  called,  else  case_aii.c  is  called.  Ply 
height  of  the  sections  are  adjusted  and  the  savings  is 
returned  to  the  main  program. 

4 . 3 . 5 . 6  Compute . c 

Compute_savings 0  looks  at  the  size  to  transfer  and  the 
two  sections  to  determine  which  way  to  compute  the  savings. 
If  the  two  sections  have  the  same  sizes  combination  then 
case_ai.c  is  called  else  case_aii.c  is  called.  Ply  height 
of  the  sections  are  adjusted  and  the  savings  is  returned  to 
the  main  program. 

4. 3. 5. 7  Findinch.c 

Find_inches()  searches  through  the  list  of  inputs  to 
find  the  inches  of  the  size  combination  of  a  section. 

4. 3. 5. 8  Getparm.c 

Get_parameters 0  opens  the  input  file  and  reads  in  all 
the  inputs  into  their  appropriate  variables  and  structures. 

4. 3. 5. 9  Globals.c 

Globals  defines  and  initializes  all  the  global 
variables  for  the  Improvement  algorithm. 

4.3.5.10  Improve. c 

This  file  contains  the  procedure  to  execute  the 
Improvement  algorithm.  The  procedure  begins  by  allocating 
all  the  memory  needed  for  the  variables  and  lists,  and  then 
calls  get_parameters 0  to  read  the  input  file.  The  main 
loop  in  the  procedure  continually  tries  to  transfer  and  swap 
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sizes  between  sections  until  no  more  transfers  or  swaps  can 
be  made  to  improve  the  solution.  The  procedure  then  writes 
all  the  final  data  to  the  file  "Output”,  frees  all  memory, 
and  closes  any  open  files. 

4.3.5.11  Swapbkwd 

Swap_backwards ()  attempts  to  swap  one  size  from  one 
section  with  a  size  from  another  section  working  backwards 
through  the  list. 

4.3.5.12  Swapf rwd 

Swap_forwards()  attempts  to  swap  one  size  from  one 
section  with  a  size  from  another  section  working  forwards 
through  the  list. 

4 . 3 . 5 . 1*3  Tranbkwd 

Transfer_backwards()  attempts  to  transfer  one  size  from 
one  section  to  another  section  working  backwards  through  the 
list. 


4.3.5.14  Tranfrwd 

Transfer_forwards ( )  attempts  to  transfer  one  size  from 
one  section  to  another  section  working  forwards  through  the 
list. 

4.3.5.15  Impdec.h 

This  file  contains  all  the  definitions  for  various 
structures  and  procedures  that  are  used  by  the  Improvement 
algorithm. 

4.3.5.16  Implcl.h 

This  file  defines  the  global  variables  for  the 
Improvement  algorithm  as  external  variables  so  that  the 
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program  will  compile.  The  actual  definition  and 
initialization  is  in  the  globals.c  file. 

4.3.5.17  Makefile. pc 

This  file  contains  the  method  in  which  to  compile  all 
the  procedures  and  create  the  executable  file  Improve.exe. 
To  execute  this  file  type  "make  makefile. pc” . 


4.3.6  Error  Messages 

All  error  messages  give  a  short  message  and  the  file  in 
which  the  error  occurred. 

The  following  message  appears  when  the  program  has 
trouble  opening  a  file  in  which  to  write  the  output. 

"CANNOT  OPEN  OUTPUT  FILE  improve. c” 

The  following  message  appears  when  the  program  has 
trouble  allocating  memory  to  any  structure  needed  for  the 
program . 

"ALLOCATION  ERROR  for  list  improve. c" 


The  following  error  appears  when  the  program  tries  a 
specific  combination  of  sizes  in  one  section  but  can  not 
locate  the  inches  for  this  combination  in  the  input  list. 
The  user  should  check  the  input  file  to  determine  if  the 
value  exists  or  not. 

"CANNOT  FIND  1  size-30  2  size-32  findinch.c” 
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6.0  Appendices 


Appendix  A  Input  File 

Each  algorithm  has  a  unique  input  file.  The  L^s  in  the 
three  input  files  (one  for  each  algorithm)  are  all  the  same. 
However,  each  input  file  begins  slightly  different  depending 
on  the  other  input  variables  needed  for  the  algorithm.  All 
other  input  files  are  the  same  except  for  the  initial 
inputs.  The  input  file  in  this  appendix  is  used  in  the 
Savings  algorithm.  The  beginning  of  each  of  the  three 
input  files  are  explained  in  the  sections  4.1.2  Savings 
Input  File,  4.2.2  Cherry  Input  File,  4.3.2  Improvement  Input 
File. 


1  0 

2  47 

3  6 

4  1 

5  1 

6  1 

7  1 

8  1 

9  72  120  size-30 


10 

144 

130  size-32 

11 

360 

140  size-34 

12 

360 

150  size-36 

13 

144 

160  size-38 

14 

72  170 

size-40 

15 

.  -1 

16 

1 

0 

15.31 

17 

1 

1 

15.56 

18 

1 

2 

15.82 

19 

1 

3 

16.07 

20 

1 

4 

16.33 

21 

1 

5 

16.59 

22 

2 

0 

27.75 

23 

2 

1 

28.26 

24 

2 

2 

28.76 

25 

2 

3 

29.27 

26 

2 

4 

29.77 

27 

2 

5 

30.28 

28 

3 

0 

40.36 

29 

3 

1 

41.11 

30 

3 

2 

41.87 

31 

3 

3 

42.63 

32 

3 

4 

43.38 

33 

3 

5 

44.14 

34 

4 

0 

52.93 

35 

4 

1 

53.94 

36 

4 

2 

54.95 

37 

4 

3 

55.96 

38 

4 

4 

56.97 

39 

4 

5 

57.98 

40 

5 

0 

65.50 

41 

5 

1 

66.76 

42 

5 

2 

68.03 

43 

5 

3 

69.28 

44 

5 

4 

70.54 

45 

5 

5 

71.80 

46 

6 

0 

69.19 

47 

6 

1 

70.52 

48 

6  2 

71.86 

49 

6 

3 

73.19 

50 

6 

4 

74.52 

51 

6  5 

75.86 

52 

1 

0 

1 

1  -1  28.01 

53 

1 

0 

1 

2  -1  28.26 

54 

1 

0 

1 

3  -1  28.51 

55 

1 

0 

1 

4  -1  28.76 

56 

1 

0 

1 

5  -1  29.02 

57 

1 

1 

1 

2  -1  28.52 

172 

1  1 

1 

4 

1 

5 

-1 

42.88 

173 

1  2 

1 

3 

1 

4 

-1 

42.63 

174 

1  2 

1 

3 

1 

5 

-1 

42.88 

175 

1  2 

1 

4 

1 

5 

-1 

43.13 

176 

1  3 

1 

4 

1 

5 

-1 

43.38 

177 

1  0 

1 

1 

1 

2 

1  3  -1  54.45 

178 

1  0 

1 

1 

1 

2 

1  4  -1  54.7 

179 

1  0 

1 

1 

1 

2 

1 

-1  54.95 

180 

1  0 

1 

1 

1 

3 

1  4  -1  54.95 

181 

1  0 

1 

1 

1 

3 

1 

-1  5S.2 

182 

1  0 

1 

1 

1 

4 

1 

-1  55.46 

183 

1  0 

1 

2 

1 

3 

1  4  -1  55.46 

184 

1  0 

1 

2 

1 

3 

1 

-1  55.46 

185 

1  0 

1 

2 

1 

4 

1 

-1  55.9 

186 

1  0 

1 

3 

1 

4 

1  5  -1  56.1 

187 

1  0 

1 

2 

1 

3 

1  4  -1  55.20 

188 

1  1 

1 

2 

1 

3 

1  5  -1  55.71 

189 

1  1 

1 

2 

1 

3 

1  4  -1  55.46 

190 

1  1 

1 

2 

1 

4 

1 

-1  55.9 

191 

1  1 

1 

3 

1 

4 

1 

-1  56.21 

192 

1  2 

1 

3 

1 

4 

1 

-1  56.46 

193 

1  0 

1 

1 

1 

2 

1314-1  68.02 

194 

1  0 

1 

1 

1 

2 

1315-1  68.27 

195 

1  0 

1 

1 

1 

2 

1415-1  68.4 

196 

1  0 

1 

1 

1 

3 

1415-1  69.0 

197 

1  0 

1 

2 

1 

3 

1415-1  69.03 

198 

1  1 

1 

2 

1 

3 

1415-1  69.28 

199 

1  0 

1 

1 

1 

2 

1  3  1  4  1  5  -1  72 

200 

1  0 

1 

1 

3 

2 

-1 

67.26 

201 

1  0 

1 

1 

4 

2 

-1 

71.19 

202 

1  0 

1 

1 

3 

3 

-1 

68.02 

203 

1  0 

1 

1 

3 

4 

-1 

68.78 

204 

1  0 

1 

1 

3 

5 

-1 

69.53 

205 

1  0 

1 

1 

4 

3 

-1 

72.08 

206 

1  0 

1 

1 

4 

4 

-1 

72.97 

207 

1  0 

1 

1 

4 

5 

-1 

73.86 

208 

1  0 

2 

1 

3 

2 

-1 

70.97 

209 

1  0 

2 

1 

3 

3 

-1 

71.63 

210 

1  0 

2 

1 

3 

4 

-1 

72.3 

211 

1  0 

3 

1 

1 

2 

-1 

66.76 

212 

1  0 

3 

1 

2 

2 

-1 

70.75 

213 

1  0 

3 

1 

1 

3 

-1 

67.01 

214 

1  0  3 

1 

1 

4 

-1 

67.26 

215 

1  0 

3 

1 

1 

5 

-1 

67.52 

216 

1  0 

3 

1 

2 

3 

-1 

71.19 

217 

1  0 

3 

1 

2 

4 

-1 

71.63 

218 

1  0 

3 

1 

2 

5 

-1 

72.08 

219 

1  0 

4 

1 

1 

2 

-1 

70.52 

220 

1  0 

4 

1 

1 

3 

-1 

70.75 

221 

1  0 

4 

1 

1 

4 

-1 

70.97 

222 

1  0  4 

1 

1 

5 

-1 

71.19 

223 

1  0 

1 

2 

3 

3 

-1 

68.27 

224 

1  0 

1 

2 

3 

4 

-1 

68.94 

225 

1  0 

1 

2 

3 

5 

-1 

69.78 

226 

1  0 

1 

2 

4 

3 

-1 

72.3 

227 

1  0 

1 

2 

4 

4 

-1 

73.19 

228 

1  0 

1 

2 

4 

5 

-1 

74.08 

229 

1 

0 

2 

2 

3 

3 

-1 

72.08 

230 

1 

0 

2 

2 

3 

4 

-1 

72.75 

231 

1 

0 

3 

2 

1 

3 

-1 

67.77 

232 

1 

0 

3 

2 

1 

4 

-1 

68.02 

233 

1 

0 

3 

2 

1 

5 

-1 

68.27 

234 

1 

0 

3 

2 

2 

3 

-1 

71.86 

235 

1 

0 

3 

2 

2 

4 

-1 

72.3 

236 

1 

0 

3 

2 

2 

5 

-1 

72.75 

237 

1 

0 

4 

2 

1 

3 

-1 

71.63 

238 

1 

0 

4 

2 

1 

4 

-1 

71.86 

239 

1 

0 

4 

2 

1 

5 

-1 

72.08 

240 

1 

0 

3  3 

1 

4 

-1 

68.78 

241 

1 

0 

3  3 

1 

5 

-1 

69.03 

242 

1 

0 

1 

3 

3 

4 

-1 

69.28 

243 

1 

0 

3 

4 

1 

5 

-1 

69.78 

244 

1 

0 

1 

3 

3 

5 

-1 

70.04 

245 

1 

0 

1 

4 

3 

5 

-1 

70.29 

246 

1 

0 

4 

3 

1 

4 

-1 

72.75 

247 

1 

0 

3 

3 

2 

4 

-1 

72.97 

248 

1 

0 

4 

3 

1 

5 

-1 

72.97 

249 

1 

a  2 

3 

3 

4 

-1 

73.19 

250 

1 

0 

3 

3 

2 

5 

-1 

73.41 

251 

1 

0 

1 

3 

4 

4 

-1 

73.41 

252 

1 

0 

4 

4 

1 

5 

-1 

73.86 

253 

1 

0 

3 

4 

2 

5 

-1 

74.08 

254 

1 

0 

1 

3 

4 

5 

-1 

74.3 

255 

1 

0 

1 

4 

4 

5 

-1 

74.52 

256 

2 

0 

1 

1 

3 

2 

-1 

70.75 

257 

2 

0 

1 

1 

3 

3 

-1 

71.41 

258 

2 

0 

1 

1 

3 

4 

-1 

72.08 

259 

2 

0 

3 

1 

1 

2 

•1 

70.3 

260 

2 

0 

3 

1 

1 

3 

•1 

70.52 

261 

2 

0 

3 

1 

1 

4 

-1 

70.75 

262 

2 

0 

3 

1 

1 

5 

•1 

70.97 

263 

2 

0 

1 

2 

3 

3 

-1 

71.63 

264 

2 

0 

1 

2 

3 

4 

-1 

72.3 

265 

2 

0 

3 

2 

1 

3 

-1 

71.19 

266 

2 

0 

3 

2 

1 

4 

-1 

71.41 

267 

2 

0 

3 

2 

1 

5 

-1 

71.63 

268 

2 

0 

3 

3 

1 

4 

-1 

72.08 

269 

2 

0 

3 

3 

1 

5 

-1 

72.3 

270 

2 

0 

1 

3 

3 

4 

-1 

72.52 

271 

2 

0 

3 

4 

1 

5 

-1 

72.97 

272 

2 

0 

1 

4 

3 

5 

-1 

73.4 

273 

3 

0 

1 

1 

1 

2 

-1 

66.26 

274 

3 

0 

1 

1 

2 

2 

-1 

70.3 

275 

3 

0 

1 

1 

1 

3 

-1 

66.51 

276 

3 

0 

1 

1 

1 

4 

-1 

66.76 

277 

3 

0 

1 

1 

1 

5 

-1 

67.01 

278 

3 

0 

1 

1 

2 

3 

-1 

70.75 

279 

3 

0 

1 

1 

2 

4 

-1 

71.19 

280 

3 

0 

1 

1 

2 

5 

-1 

71.63 

281 

3 

0 

2 

1 

1 

2 

-1 

70.08 

282 

3 

0 

2 

1 

1 

3 

-1 

70.3 

283 

3 

0 

2 

1 

1 

4 

-1 

70.52 

284 

3 

0 

2 

1 

1 

5 

-1 

70.75 

285 

3 

0 

1 

2 

1 

3 

-1 

66.76 

286  3 

287  3 

288  3 

289  3 

290  3 

291  3 

292  3 

293  3 

294  3 

295  3 

296  3 

297  3 

298  3 

299  3 

300  3 

301  3 

302  4 

303  4 

304  4 

305  4 

306  4 

307  4 

308  4 

309  4 

310  4 

311  4 

312  1 

313  1 

314  1 

315  1 

316  1 

317  1 

318  1 

319  1 

320  1 

321  1 

322  1 

323  1 

324  1 

325  1 

326  1 

327  1 

328  1 

329  1 

330  1 

331  1 

332  1 

333  1 

334  1 

335  1 

336  1 

337  1 

338  1 

339  1 

340  1 

341  1 

342  1 


0  12  14 
0  12  15 
0  12  2  3 
0  12  2  4 
0  12  2  5 
0  2  2  1  3 
0  2  2  1  4 
0  2  2  1  5 
0  13  14 
0  13  15 
0  14  15 
0  2  3  1  4 
0  2  3  1  5 
0  13  2  4 
0  2  4  1  5 
0  14  2  5 
0  1112 
0  1113 
0  1114 
0  1115 
0  12  13 
0  12  14 
0  12  15 
0  13  14 
0  13  15 
0  14  15 
112  3  3 
112  3  4 
112  3  5 
112  4  3 
112  4  4 

112  4  5 
1  2  2  3  3 
1  2  2  3  4 
13  2  13 
13  2  14 

13  2  15 
1  3  2  2  3 
1  3  2  2  4 
1  3  2  2  5 

14  2  13 
14  2  14 
14  2  15 
13  3  14 
13  3  15 

113  3  4 

13  4  15 

113  3  5 

114  3  5 

14  3  14 
14  3  15 
1  3  3  2  4 
1  2  3  3  4 
113  4  4 
1  3  3  2  5 
14  4  15 
1  3  4  2  5 


1  67.01 
1  67.26 
1  70.97 
1  71.41 
1  71.86 
1  70.75 
1  70.97 
1  71.19 
1  67.26 
1  67.52 
1  69.77 
1  71.41 
1  71.63 
1  71.63 
1  72.08 
1  72.3 
1  69.26 
1  70.08 
1  70.3 
1  70.52 
1  70.3 
1  70.52 
1  70.75 
1  70.75 
1  70,97 
1  71,19 
1  68.52 
1  69.28 
1  70.04 
1  72.52 
1  73.41 
1  74.3 
1  72.3 
1  72.97 
1  68.02 
1  68.27 
1  68.52 
1  72.08 
1  72.52 
1  72,97 
1  71.86 
1  72.08 
1  72.3 
1  69.03 
1  69.28 
1  69,53 
1  70.04 
1  70.29 
1  70.54 
1  72.97 
1  73.19 
1  73,19 
1  73.41 
1  73.64 
1  73.64 
1  74.08 
1  74.3 


343 

1 

1 

1 

3 

4 

5 

-1 

74.52 

344 

1 

1 

1 

4 

4 

5 

-1 

74.75 

345 

2 

1 

1 

2 

3 

3 

-1 

72.08 

346 

2 

1 

1 

2 

3 

4 

-1 

72.75 

347 

2 

1 

3 

2 

1 

3 

-1 

71.63 

348 

2 

1 

3 

2 

1 

4 

-1 

71.86 

349 

2 

1 

3 

2 

1 

5 

-1 

72.08 

350 

2 

1 

3 

3 

1 

4 

-1 

72.52 

351 

2 

1 

3 

3 

1 

5 

-1 

72.75 

352 

2 

1 

1 

3 

3 

4 

-1 

72.97 

353 

2 

1 

3 

4 

1 

5 

-1 

73.41 

354 

3 

1 

1 

2 

1 

3 

-1 

67.52 

355 

3 

1 

1 

2 

1 

4 

-1 

67.77 

356 

3 

1 

1 

2 

1 

5 

-1 

68.02 

357 

3 

1 

1 

2 

2  3 

-1 

71.63 

358 

3 

1 

1 

2 

2 

4 

-1 

72.08 

359 

3 

1 

1 

2 

2 

5 

-1 

72.52 

360 

3 

1 

2 

2 

1 

3 

-1 

71.41 

361 

3 

1 

2 

2 

1 

4 

-1 

71.63 

362 

3 

1 

2 

2 

1 

5 

-1 

71.86 

363 

3 

1 

1 

3 

1 

4 

-1 

68.02 

364 

3 

1 

1 

3 

1 

5 

-1 

68.27 

365 

3 

1 

1 

4 

1 

5 

-1 

68.52 

366 

3 

1 

2 

3 

1 

4 

-1 

72.08 

367 

3 

1 

2 

3 

1 

5 

-1 

72.3 

368 

3 

1 

1 

3 

2 

4 

-1 

72.3 

369 

3 

1 

2 

4 

1 

5 

-1 

72.75 

370 

3 

1 

1 

3 

2 

5 

'1 

72.75 

371 

3 

1 

1 

4 

2 

5 

-1 

72.97 

372 

4 

1 

1 

2 

1 

4 

-1 

71.41 

373 

4 

1 

1 

2 

1 

5 

-1 

71.63 

374 

4 

1 

1 

2 

1 

3 

-1 

71.19 

375 

4 

1 

1 

3 

1 

4 

-1 

71.63 

376 

4 

1 

1 

3 

1 

5 

-1 

71.86 

377 

4 

1 

1 

4 

1 

5 

-1 

72.08 

378 

1 

2  3 

3 

1 

4 

-1 

69.28 

379 

1 

2  3 

3 

1 

5 

-1 

69.53 

380 

1 

2 

1 

3 

3 

4 

-1 

69.78 

381 

1 

2  3 

4 

1 

5 

-1 

70.29 

382 

1 

2 

1 

3 

3 

5 

-1 

70.54 

383 

1 

2 

1 

4 

3 

5 

-1 

70.79 

384 

1 

2  4 

3 

1 

4 

-1 

73.19 

385 

1 

2  4 

3 

1 

5 

-1 

73.41 

386 

1 

2  3 

3 

2 

4 

-1 

73.41 

387 

1 

2 

2 

3 

3 

4 

•1 

73.64 

388 

1 

2 

1 

3 

4 

4 

-1 

73.86 

389 

1 

2  3 

3 

2 

5 

-1 

73.86 

390 

1 

2  4 

4 

1 

5 

-1 

74.3 

391 

1 

2  3 

4 

2 

5 

-1 

74.52 

392 

1 

2 

1 

3 

4 

5 

•1 

74.75 

393 

1 

2 

1 

4 

4 

5 

-1 

74.97 

394 

2  2  3 

3 

1 

4 

-1 

72.97 

395 

2 

2 

3 

3 

1 

5 

-1 

73.19 

396 

2  2 

1 

3 

3 

4 

-1 

73.41 

397 

2  2  3 

4 

1 

5 

•1 

73.86 

398 

3  2 

1 

3 

1 

4 

•1 

68.78 

399 

3 

2 

1 

3 

1 

5 

'1 

69.03 

400 

3 

2 

1 

4 

1  5 

-1  69.28 

401 

3 

2 

2 

3 

1  4 

-1  72,75 

402 

3 

2 

2  3 

1  5 

-1  72.97 

403 

3 

2 

1 

3 

2  4 

-1  72.97 

404 

3 

2 

2 

4 

1  5 

•1  73.41 

405 

3 

2 

1 

3 

2  5 

-1  73.41 

406 

3 

2 

1 

4 

2  5 

-1  73.64 

407 

4 

2 

1 

3 

1  4 

-1  72.52 

408 

4 

2 

1 

3 

1  5 

-1  72.75 

409 

4 

2 

1 

4 

1  5 

-1  72.97 

410 

1 

3 

1 

4 

3  5 

-1  71.04 

411 

1 

3 

1 

4 

4  5 

-1  75.19 

412 

1 

3  3 

4 

1  5 

-1  70.54 

413 

1 

3 

3 

4 

2  5 

-1  74.75 

414 

1 

3 

4 

4 

1  5 

-1  74.52 

415 

2 

3 

3 

4 

1  5 

-1  74.3 

416 

3 

3 

1 

4 

1  5 

-1  69.04 

417 

3 

3 

1 

4 

2  5 

-1  74.3 

418 

3 

3 

2 

4 

1  5 

-1  74.08 

419 

4 

3 

1 

4 

1  5 

-1  73.86 

420 

3 

0 

2 

1 

-1 

65.77 

421 

3 

0 

2 

2 

-1 

66.01 

422 

3 

0 

2 

3 

-1 

66.77 

423 

3 

0 

2 

4 

-1 

67.26 

424 

3 

0 

2 

5 

•1 

67,77 

425 

2 

0 

3 

1 

-1 

66.01 

426 

3 

1 

2 

2 

-1 

67.26 

427 

3 

1 

2 

3 

-1 

67.77 

428 

3 

1 

2 

4 

-1 

68.27 

429 

3 

1 

2 

5 

•1 

68.78 

430 

2 

0 

3 

2 

-1 

67.01 

431  . 

2 

1 

3 

2 

-1 

67.52 

432 

3 

2 

2  3 

-1 

68.52 

433 

3 

2 

2 

4 

•1 

69.03 

434 

3 

2 

2 

5 

■1 

69.53 

435 

2 

0 

3 

3 

-1 

67.77 

436 

2 

1 

3 

3 

-1 

68.27 

437 

2 

2 

3 

3 

-1 

68.78 

438 

3 

3 

2 

4 

•1 

69,78 

439 

3 

3 

2 

5 

-1 

70.29 

440 

2 

0 

3 

4 

-1 

68.52 

441 

2 

1 

3 

4 

-1 

69.03 

442 

2 

2 

3 

4 

-1 

69.53 

443 

2 

3 

3 

4 

-1 

70.03 

444 

3 

4 

2 

5 

-1 

71.04 

445 

2 

0 

3 

5 

-1 

69.23 

446 

2 

1 

3 

5 

-1 

69.84 

447 

2 

2 

3 

5 

-1 

70.35 

448 

2 

3 

3 

5 

-1 

70.86 

449 

2 

4 

3 

5 

-1 

71.37 

450 

4 

0 

1 

1 

-1 

65.76 

451 

4 

0 

1 

2 

-1 

66.01 

452 

4 

0 

1 

3 

-1 

66.26 

453 

4 

0 

1 

4 

-1 

66.51 

454 

4 

0 

1 

5 

-1 

66.76 

455 

1 

0 

4 

1 

-1 

66.51 

456 

4 

1 

1 

2 

-1 

67.01 

457 

4 

1 

1  3 

67.26 

458 

4 

1 

1  4 

67.52 

459 

4 

1 

1  5 

67.77 

460 

1 

0 

4  2 

67.52 

461 

1 

1 

4  2 

67.77 

462 

4 

2 

1  3 

68.14 

463 

4 

2 

1  4 

68.52 

464 

4 

2 

1  5 

68.78 

465 

1 

0 

4  3 

68.52 

466 

1 

1 

4  3 

68.78 

467 

1 

2 

4  3 

69.14 

468 

4 

3 

1  4 

69.53 

469 

4 

3 

1  5 

69.78 

470 

1 

0 

4  4 

69.53 

471 

1 

1 

4  4 

69.78 

472 

1 

2 

4  4 

70.04 

473 

1 

3 

4  4 

70.30 

474 

4 

4 

1  5 

70.75 

475 

1 

0 

4  5 

70.52 

476 

1 

1 

4  5 

70.75 

477 

1 

2 

4  5 

70.97 

478 

1 

3 

4  5 

71.19 

479 

1 

4 

4  5 

71.41 

480 

2 

0 

2  1 

1 

2 

-1  66.51 

481 

2 

0 

2  1 

1 

3 

-1  66.76 

482 

2 

0 

2  1 

1 

4 

-1  67.01 

483 

2 

0 

2  1 

1 

5 

-1  67.26 

484 

1 

0 

2  1 

2  2 

-1  67.01 

485 

2 

1 

2  2 

1 

3 

-1  67.77 

486 

2 

1 

2  2 

1 

4 

-1  68.02 

487. 

2 

1 

2  2 

1 

5 

-1  68.27 

488 

1 

0 

2  2 

2  3 

•1  68.02 

489 

1 

1 

2  2 

2  3 

-1  68.27 

490 

2 

2 

2  3 

1 

4 

-1  69.03 

491 

2 

2 

2  3 

1 

5 

•1  69.28 

492 

1 

0 

2  3 

2 

4 

-1  69.03 

493 

1 

1 

CM 

2 

4 

•1  69.28 

494 

1 

2 

2  3 

2 

4 

-1  69.53 

495 

2 

3 

2  4 

1 

5 

-1  70,29 

496 

1 

0 

2  4 

2 

5 

-1  70,04 

497 

1 

1 

2  4 

2 

5 

-1  70.29 

498 

1 

2 

2  4 

2 

5 

-1  70.54 

499 

1 

3 

2  4 

2 

5 

-1  70.79 

500 

2 

0 

1  1 

2 

2 

-1  66.76 

501 

2 

0 

2  2 

1 

3 

-1  67.26 

502 

2 

0 

2  2 

1 

4 

-1  67,52 

503 

2 

0 

2  2 

1 

5 

-1  67,77 

504 

2 

0 

1  1 

2 

3 

-1  67,26 

505 

2 

0 

1  2 

2 

3 

-1  67.51 

506 

2 

0 

2  3 

1 

4 

•1  68.02 

507 

2 

0 

2  3 

1 

5 

-1  68,27 

508 

2 

0 

1  1 

2 

4 

-1  67.52 

509 

2 

0 

1  2 

2 

4 

•1  68.02 

510 

2 

0 

1  3 

2 

4 

-1  68,27 

511 

2 

0 

2  4 

1 

5 

-1  68.78 

512 

2 

0 

1  1 

2 

5 

-1  68.27 

513 

2 

0 

1  2 

2 

5 

-1  68.52 

514 

2 

0 

1 

3 

2  5 

-1  68.78 

515 

2 

0 

1 

4 

2  5 

-1  69.03 

516 

1 

0 

2 

1 

2  3 

-1  67.52 

517 

2 

1 

1 

2 

2  3 

-1  68.02 

518 

2 

1 

2 

3 

1  4 

-1  68.52 

519 

2 

1 

2 

3 

1  5 

-1  68.78 

520 

1 

0 

2 

1 

2  4 

-1  69.03 

521 

2 

1 

1 

2 

2  4 

-1  68.52 

522 

2 

1 

* 

3 

2  4 

-1  68.78 

523 

2 

1 

2 

4 

1  5 

-1  69.28 

524 

1 

0 

2 

1 

2  5 

-1  68.52 

525 

2 

1 

1 

2 

2  5 

-1  69.03 

526 

2 

1 

1 

3 

2  5 

-1  69.28 

527 

2 

1 

1 

4 

2  5 

-1  69.53 

528 

1 

0 

2 

2 

2  4 

-1  68.52 

529 

1 

1 

2 

2 

2  4 

-1  68.78 

530 

2 

2 

1 

3 

2  4 

-1  69.28 

531 

2 

2 

2 

4 

1  5 

-1  69.78 

532 

1 

0 

2 

2 

2  5 

-1  69.03 

533 

1 

1 

2 

2 

2  5 

-1  69.28 

534 

2 

2 

1 

3 

2  5 

-1  69.78 

535 

2 

2 

1 

4 

2  5 

-1  70.04 

536 

1 

0 

2 

3 

2  5 

-1  69.53 

537 

1 

1 

2 

3 

2  5 

-1  69.78 

538 

1 

2 

2 

3 

2  5 

-1  70.04 

539 

2 

3 

1 

4 

2  5 

-1  70.30 

540 

2 

0 

2 

1 

-1 

53.45 

541 

2 

0 

2 

2 

-1 

53.93 

542 

2 

0 

2 

3 

-1 

54.45 

543 

2 

0 

2 

4 

-1 

54.95 

5U 

2 

0 

2 

5 

-1 

55.46 

545 

2 

1 

2 

2 

-1 

54.45 

546 

2 

1 

2 

3 

-1 

54.95 

547 

2 

1 

2 

4 

-1 

55.46 

548 

2 

1 

2 

5 

-1 

55.96 

549 

2 

2 

2 

3 

-1 

55.46 

550 

2 

2 

2 

4 

-1 

55.96 

551 

2 

2 

2 

5 

-1 

56.46 

552 

2 

3 

2 

4 

-1 

56.46 

553 

2 

3 

2 

5 

-1 

56.97 

554 

2 

4 

2 

5 

-1 

57.46 

555 

3 

0 

3 

1 

-1 

69.86 

556 

3 

0 

3 

2 

-1 

70.52 

557 

3 

0 

3 

3 

-1 

71.19 

558 

3 

0 

3 

4 

-1 

71.86 

559 

3 

0 

3 

5 

-1 

72.52 

560 

3 

1 

3 

2 

-1 

71.19 

561 

3 

1 

3 

3 

-1 

71.86 

562 

3 

1 

3 

4 

-1 

72.52 

563 

3 

1 

3 

5 

-1 

73.19 

564 

3 

2 

3 

3 

-1 

72.52 

565 

3 

2 

3 

4 

-1 

73.19 

566 

3 

2 

3 

5 

-1 

73.86 

567 

3 

3 

3 

4 

-1 

73.86 

568 

3 

3 

3 

5 

-1 

74.52 

569 

3 

4 

3 

5 

-1 

75.19 

570 

3 

0 

1 

1 

-1 

53.19 

571 

3 

0 

1 

2 

53.44 

572 

3 

0 

1 

3 

53.69 

573 

3 

0 

1 

4 

53.94 

574 

3 

0 

1 

5 

54.19 

575 

1 

0 

3 

1 

53.69 

576 

3 

1 

1 

2 

54.19 

577 

3 

1 

1 

3 

54.45 

578 

3 

1 

1 

4 

54.70 

579 

3 

1 

1 

5 

54.95 

580 

1 

0 

3 

2 

54.45 

581 

1 

1 

3 

2 

54.70 

582 

3 

2 

1 

3 

55.20 

583 

3 

2 

1 

4 

55.46 

584 

3 

2 

1 

5 

55.71 

585 

1 

0 

3 

3 

55.20 

586 

1 

1 

3 

3 

55.46 

587 

1 

2  3  3 

55.71 

588 

3 

3 

1 

4 

56.21 

589 

3 

3 

1 

5 

56.46 

590 

1 

0 

3 

4 

55.96 

591 

1 

1 

3 

4 

56.21 

592 

1 

2 

3 

4 

56.46 

593 

1 

3 

3 

4 

56.72 

594 

3 

4 

1 

5 

57.22 

595 

1 

0 

3 

5 

56.72 

596 

1 

1 

3 

5 

56.97 

597 

1 

2 

3 

5 

57.22 

598 

1 

3 

3 

5 

57.47 

599 

1 

4 

3 

5 

57.72 

600 

2 

0 

2 

1 

1 

2  13-1 

70 

.75 

601 

2 

0 

2 

1 

1 

2  14-1 

70 

.97 

602 

2 

0 

2 

1 

1 

2  15-1 

71 

.19 

603 

2 

0 

2 

1 

1 

3  14-1 

71 

.19 

604 

2 

0 

2 

1 

1 

3  15-1 

71 

.41 

605 

2 

0 

2 

1 

1 

4  15-1 

71 

.63 

606 

2 

0 

1 

1 

2 

2  13-1 

70 

.97 

607 

2 

0 

1 

1 

2 

2  14-1 

71 

.19 

608 

2 

0 

1 

1 

2 

2  15-1 

71 

.41 

609 

2 

0 

2 

2 

1 

3  14-1 

71 

.63 

610 

2 

0 

2 

2 

1 

3  15-1 

71 

.86 

611 

2 

0 

2 

2 

1 

4  15-1 

72 

.08 

612 

2 

0 

1 

1 

1 

2  2  3  -1 

71 

.19 

613 

2 

0 

1 

1 

2 

3  14-1 

71 

.63 

614 

2 

0 

1 

1 

2 

3  15-1 

71 

.86 

615 

2 

0 

1 

2 

2 

3  14-1 

71 

.86 

616 

2 

0 

1 

2 

2 

3  15-1 

72 

.08 

617 

2 

0 

2 

3 

1 

4  15-1 

72 

.52 

618 

2 

0 

1 

1 

1 

2  2  4  -1 

71 

.63 

619 

2 

0 

1 

1 

1 

3  2  4  -1 

71 

.86 

620 

2 

0 

1 

1 

2 

4  15-1 

72 

.3 

621 

2 

0 

1 

2 

1 

3  2  4  -1 

72 

.08 

622 

2 

0 

1 

2 

2 

4  15-1 

72 

.52 

623 

2 

0 

1 

3 

2 

4  15-1 

72 

.75 

624 

2 

0 

1 

1 

1 

2  2  5  -1 

72 

.08 

625 

2 

0 

1 

1 

1 

3  2  5  -1 

72 

.3 

626 

2 

0 

1 

1 

1 

4  2  5  -1 

72 

.52 

627 

2 

0 

1 

2 

1 

3  2  5  -1 

72 

.52 

68S 

1 

0 

1 

2 

2 

4 

2 

5 

-1 

73.64 

686 

1 

0 

1 

3 

2 

4 

2  5 

-1 

73.86 

687 

1 

1 

1 

2 

2 

4 

2  5 

-1 

73.86 

688 

1 

1 

1 

3 

2 

4 

2  5 

-1 

74.08 

689 

1 

2 

1 

3 

2 

4 

2 

5 

-1 

74.3 

690 

2 

0 

1 

1 

1 

2 

1 

3 

-1 

67.01 

691 

2 

0 

1 

1 

1 

2 

1 

4 

-1 

67.26 

692 

2 

0 

1 

1 

1 

2 

1 

5 

-1 

67.52 

693 

2 

0 

1 

1 

1 

3 

4 

4 

-1 

67.52 

694 

2 

0 

1 

1 

1 

3 

1 

5 

-1 

67.27 

69S 

2 

0 

1 

1 

1 

4 

1 

5 

-1 

68.02 

696 

2 

0 

1 

2 

1 

3 

1 

4 

-1 

67.77 

697 

2 

0 

1 

2 

1 

3 

1 

5 

-1 

68.02 

698 

2 

0 

1 

2 

1 

4 

1 

5 

-1 

68.27 

699 

2 

0 

1 

3 

1 

4 

1 

5 

-1 

68.52 

700 

1 

0 

2 

1 

1 

2 

1 

3 

-1 

67.26 

701 

1 

0 

2 

1 

1 

2 

1 

4 

-1 

67.52 

702 

1 

0 

2 

1 

1 

2 

1 

5 

-1 

67.77 

703 

1 

0 

2 

1 

1 

3 

1 

4 

-1 

67.77 

704 

1 

0 

2 

1 

1 

3 

1 

5 

-1 

68.02 

705 

1 

0 

2 

1 

1 

4 

1 

5 

-1 

68.27 

706 

2 

1 

1 

2 

1 

3 

1 

4 

-1 

68.27 

707 

2 

1 

1 

2 

1 

3 

1 

5 

-1 

68.52 

708 

2 

1 

1 

2 

1 

4 

1 

5 

-1 

68.78 

709 

2 

1 

1 

3 

1 

4 

1 

5 

-1 

69.03 

710 

1 

0 

1 

1 

2 

2 

1 

3 

-1 

67.52 

711 

1 

0 

1 

1 

2 

2 

1 

4 

-1 

67.77 

712 

1 

0 

1 

1 

2 

2 

1 

5 

-1 

68.02 

713 

1 

0 

2 

2 

1 

3 

1 

4 

-1 

68.27 

714 

1 

0 

2 

2 

1 

3 

1 

5 

-1 

68.52 

715 

1 

0 

2 

2 

1 

4 

1 

5 

•1 

68.78 

716 

1 

1 

2 

2 

1 

3 

1 

4 

-1 

68.52 

717 

1 

1 

2 

2 

1 

3 

1 

5 

-1 

68.78 

718 

1 

1 

2 

2 

1 

4 

1 

5 

-1 

69.03 

719 

2 

2 

1 

3 

1 

4 

1 

5 

-1 

69.53 

720 

1 

0 

1 

1 

1 

2 

2  3 

-1 

67.77 

721 

1 

0 

1 

1 

2 

3 

1 

4 

-1 

68.27 

722 

1 

0 

1 

1 

2 

3 

1 

5 

-1 

68.52 

723 

1 

0 

1 

2 

2 

3 

1 

4 

-1 

68.52 

724 

1 

0 

1 

2 

2 

3 

1 

5 

-1 

68.78 

725 

1 

0 

2 

3 

1 

4 

1 

5 

-1 

69.28 

726 

1 

1 

1 

2 

2 

3 

1 

4 

-1 

68.78 

727 

1 

1 

2 

3 

1 

4 

1 

5 

-1 

69.53 

728 

1 

2 

2 

3 

1 

4 

1 

5 

-1 

69.78 

729 

1 

1 

1 

2 

2 

3 

1 

5 

-1 

69.03 

730 

1 

0 

1 

1 

1 

2 

2 

4 

-1 

68.27 

731 

1 

0 

1 

1 

1 

3 

2 

4 

-1 

68.52 

732 

1 

0 

1 

1 

2 

4 

1 

5 

-1 

69.03 

733 

1 

0 

1 

2 

1 

3 

2 

4 

-1 

68.78 

734 

1 

0 

1 

2 

2 

4 

1 

5 

-1 

69.28 

735 

1 

0 

1 

3 

2 

4 

1 

5 

-1 

69.53 

736 

1 

1 

1 

2 

1 

3 

2 

4 

-1 

69.03 

737 

1 

1 

1 

2 

2 

4 

1 

5 

-1 

69.53 

738 

1 

1 

1 

3 

2  4 

1 

5 

-1 

69.78 

739 

1 

2 

1 

3 

2  4 

1 

5 

-1 

70.04 

740 

1 

0 

1 

1 

1 

2 

2 

5 

-1 

68.78 

741 

1 

0 

1 

1 

1 

3 

2 

5 

-1 

69.03 

742  1  0 

743  1  0 

744  1  0 

745  1  0 

746  1  1 

747  111 

748  111 

749  121 

750  201 

751  201 

752  201 

753  201 

754  201 

755  102 

756  1  0  2 

757  1  0  2 

758  1  0  2 

759  2  1  1 

760  101 

761  10  1 

762  101 

763  1  0  2 

764  1  1  2 

765  101 

766  101 

767  101 

768  101 

769  111 

770  101 

771  10  1 

772  101 

773  1  0  1 

774  111 

775  1  0  1 

776  101 

777  101 

778  101 

779  111 

780  3  0  1 

781  301 

782  301 

783  301 

784  301 

785  3  0  1 

786  301 

787  301 

788  301 

789  301 

790  1  0  3 

791  10  3 

792  1  0  3 

793  1  0  3 

794  1  0  3 

795  1  0  3 

796  311 

797  311 

798  311 


1114  2  5 
12  13  2  5 

12  14  2  5 

13  14  2  5 
2  13  2  5 

2  14  2  5 

3  14  2  5 
3  14  2  5 
112  13 
112  13 

112  14 

113  14 
2  13  14 
112  13 
112  13 

112  14 

113  14 
2  13  14 
12  2  13 
12  2  13 
12  2  14 
2  13  14 
2  13  14 
112  2  3 
112  2  3 
12  3  14 
2  2  3  1  4 
2  2  3  1  4 
112  13 

112  2  4 

113  2  4 
2  13  2  4 
2  13  2  4 
112  13 

112  14 

113  14 
2  13  14 
2  13  14 
112  13 
112  14 

112  15 

113  14 

113  15 

114  15 
2  13  14 
2  13  15 

2  14  15 

3  14  15 
112  13 
112  14 

112  15 

113  14 

113  15 

114  15 
2  13  14 
2  13  15 
2  14  15 


-1  69.28 
-1  69.28 
-1  69.53 
-1  69.78 
-1  69.53 
-1  69.78 
-1  70.04 
-1  70.29 


4 

71.41 

5 

71.63 

5 

71.86 

5 

-1 

72.08 

5 

-1 

72.3 

4 

-1 

71.63 

5 

-1 

71.86 

5 

-1 

72.08 

5 

-1 

72.3 

5 

-1 

72.75 

4 

-1 

71.86 

5 

-1 

72.08 

5 

-1 

72.3 

5 

-1 

72,75 

5 

-1 

72.97 

4 

-1 

72.08 

5 

-1 

72.3 

8 

-1 

72.75 

1 

5 

-1 

72.97 

1 

5 

-1 

73.19 

2  4 

-1 

72.3 

1 

5 

-1 

72.75 

1 

5 

-1 

72.97 

1 

5 

-1 

n.i9 

1 

5 

-1 

73.41 

2  5 

•1 

72.75 

2  5 

-1 

72.97 

2  5 

-1 

73.19 

2 

5 

-1 

73.41 

2 

5 

-1 

73.64 

-1  70.52 
-1  70.75 
-1  70.97 
-1  70.97 
-1  71.19 
-1  71.41 
-1  71.19 
-1  71.41 
-1  71.63 
-1  71.86 
-1  70.97 
-1  71.19 
-1  71.41 
-1  71.41 
-1  71.63 
-1  71,86 
-1  71.86 
-1  72.08 
-1  72.3 


Appendix  B  Output  File 

The  output  file  for  the  Savings  and  Cherry  algorithms 
contains  the  inputs  to  the  programs  and  the  sections  the 
algorithm  created  for  the  solution.  The  Improvement 
algorithm  contains  the  inputs  to  the  program,  the  beginning 
solution  on  which  to  improve,  and  the  sections  generated 
for  the  solution. 


SAVINGS  ALGORITHM 


MAX  PLY  =47  MAX  #  OF  UNITS  PER  SECTION  =  6 
K  «  1  INIT  PLY  -  1  Q  =  1 

ORDER 

6  SIZE  size-30 
9  SIZE  size-32 
25  SIZE  size-34 
2  SIZE  size-36 
5  SIZE  size-38 
1  SIZE  size-40 


THE  #  OF  FINAL  SECTIONS  ARE  :  4 
SECTION  0  HAS  PLY  =  1 

AND  1  SIZE  size-30 
AND  4  SIZE  size-38 
AND  1  SIZE  size-40 

MARKER  LENGTH  =  73.86  THE  TOTAL  LENGTH  =  73.86 

SECTION  1  HAS  PLY  =  1 

AND  1  SIZE  size-32 
AND  2  SIZE  size-34 
AND  2  SIZE  size-36 
AND  1  SIZE  size-38 

MARKER  LENGTH  =  72.52  THE  TOTAL  LENGTH  =  72.52 

SECTION  2  HAS  PLY  *  5 

AND  1  SIZE  size-30 
AND  1  SIZE  size-32 
AND  4  SIZE  size-34 

MARKER  LENGTH  =  71.19  THE  TOTAL  LENGTH  =  355.95 

SECTION  3  HAS  PLY  =  3 

AND  1  SIZE  size-32 
AND  1  SIZE  size-34 

MARKER  LENGTH  =  28.52  THE  TOTAL  LENGTH  =  85.56 

TOT  MARKER  =  246.09  TOT  LENGTH  =  587.89,  UNIT  OVER/UNDER 

TOTAL  TIME  =  0.008000  SECONDS 


MAX  PLY  =  47  MAX  #  OF  XJNITS  PER  SECTION  =  6 
UNIT  COST  =  1  cents  CUT  COST  =  1  cents 
ORDER 

6  SIZE  size-30 
9  SIZE  size-32 
25  SIZE  size-34 
2  SIZE  size-36 
5  SIZE  size-38 
1  SIZE  size-40 

FIRST  SOLUTION 
SECTION  0  HAS  PLY  =  6 

AND  1  SIZE  size-30 
AND  1  SIZE  size-32 
AND  4  SIZE  size-34 

MARKER  LENGTH  *  71.19  TOTAL  LENGTH  »  427.14 

SECTION  1  HAS  PLY  «  2 

AND  1  SIZE  size-32 
AND  1  SIZE  size-36 
AND  2  SIZE  size-38 

MARKER  LENGTH  =  55.96  TOTAL  LENGTH  =  111.92 

SECTION  2  HAS  PLY  =  1 

AND  1  SIZE  size-32 
AND  1  SIZE  size-34 
AND  1  SIZE  size-38 
AND  1  SIZE  size-40 

MARKER  LENGTH  =  55.90  TOTAL  LENGTH  =  55.90 

TOTAL  MARKER  ^  183.05  TOTAL  LENGTH  =  594.96 


THE  #  OF  FINAL  SECTIONS  ARE  :  7 
SECTION  0  HAS  PLY  *  1 


AND 

AND 

AND 

AND 

MARKER  LENGTH  =  72.52 

SECTION  1  HAS  PLY  =  1 

AND 

AND 

AND 

MARKER  LENGTH  =  71.03 

SECTION  2  HAS  PLY  «  1 

AND 

AND 

AND 

MARKER  LENGTH  -  72.52 

SECTION  3  HAS  PLY  -  1 

AND 

AND 

AND 

MARKER  LENGTH  -  72.52 

SECTION  4  HAS  PLY  -  1 

AND 

AND 

AND 


1  SIZE  size-30 
3  SIZE  size-34 
1  SIZE  size-38 
1  SIZE  size-40 
TOTAL  LENGTH  =  72.52 


3  SIZE  size-32 
2  SIZE  size-34 
1  SIZE  size-36 
TOTAL  LENGTH  -  71.03 


4  SIZE  size-34 
1  SIZE  size-36 
1  SIZE  size-38 
TOTAL  LENGTH  -  72.52 


1  SIZE  8ize-32 
3  SIZE  size-34 

2  SIZE  size-38 

TOTAL  LENGTH  -  72.52 


3  SIZE  size-30 
2  SIZE  size-32 
1  SIZE  size-38 


MARKER  LENGTH  *  70.52  TOTAL  LENGTH  »  70.52 

SECTION  5  HAS  PLY  *  1 

AND  1  SIZE  size-32 
AND  5  SIZE  size-34 

MARKER  LENGTH  *=  71.63  TOTAL  LENGTH  *  71.63 

SECTION  6  HAS  PLY  *  2 

AND  1  SIZE  size-30 
AND  1  SIZE  size-32 
AND  4  SIZE  size-34 

MARKER  LENGTH  *  71.19  TOTAL  LENGTH  »  142.38 

TOTAL  MARKER  *  501.93  TOTAL  LENGTH  *  573.12 


UNIT  OVER/ UNDER  =  0 
TOTAL  TIME  *  0.020000 


Appendix  C  Algorithm  Detailed  Descriptions 


INPUT:  (1)  An  order  to  be  cut,  consisting  of  the  various  sizes  required  and  a  quantity 
desired  of  each  of  these  sizes.  (2)  The  number  of  units  over  or  under  the  demand  that 
will  be  allowed.  (3)  The  parameter  k  which  determines  the  number  of  iterations  after 
which  the  savings  list  will  be  updated.  (4)  The  ply  height  of  each  of  the  initial  sections. 
(S)  List  of  Ij's  (these  are  the  fabric  lengths  required  for  cutting  a  size  combination  i  - 
like  small  and  large  together  -  in  a  particular  section).  (6)  Maximum  ply  height 
allowed.  (7)  Maximum  number  of  sizes  allowed  per  section.  (8)  The  cutting  cost  per 
inch  of  fabric.  (9)  The  unit  cost  of  the  fabric. 

STEPS: 

1 .  Assign  each  unit  in  the  order  to  a  separate  section  of  the  initial  ply  height. 

2.  Compute  a  savings'* achieved  for  combining  any  pair  of  sections  into  a  single 
section.  The  maximum  size  of  this  list  can  be  set  to  a  specifc  value.  It  is  best  to 
keep  it  less  than  or  equal  to  the  input  K.  The  savings  list  is  sorted  as  each  value 
is  calculated  and  placed  in  the  list. 

3.  Start  at  the  top  of  the  savings  list  and  feasibly  merge  sections  according  the 
best  savings.  The  first  two  sections  that  are  merged  are  placed  in  a  temporary 
section.  Each  merge  thereafter  is  made  only  with  this  temporary  section  until 
the  number  of  sizes  per  section  is  reached. 

4.  Once  a  the  temporary  section  is  full  it  is  saved  and  cannot  be  used  again. 

5.  After  k  mergers  in  step  3  the  savings  list  should  be  updated  and  resorted  by 
performing  steps  2  and  3  for  all  newly  created  actions,  then  performing  step  3. 
(note:  k  will  be  an  input  parameter) 

6.  Continue  until  no  more  savings  can  be  achieved  (i.e.  the  savings  list  has  been 
scanned  and  the  list  is  exhausted,  with  no  mergers  possible). 

OUTPUT:  (1)  The  number  of  sections,  the  sizes  assigned  to  each  of  those  sections,  and 
the  ply  height  of  each  section.  (2)  The  total  estimated  fabric  length  required  to 
cut  the  order.  (3)  The  deviation  of  the  number  of  units  to  be  cut  from  the  actual 
number  of  units  required  in  the  order. 
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*Savings  Computations: 

Step  2  of  the  algorithm  requires  a  computation  of  savings  achieved  for  combining  two 
sections  into  one.  Described  below  are  the  details  of  this  computation,  based  on 
whether  or  not  the  two  sections  to  be  combined  contain  the  same  sizes  or  not. 

Case  A: 

The  two  sections  contain  exactly  the  same  size(s).  The  merger  can  be  accomplished  in 
one  of  two  ways: 

(i)  Increase  ply  height  by  spreading  one  section  on  top  of  the  other  and  making  no 
change  to  the  size  combination  in  the  section. 

To  compute  the  savings  achieved  in  this  situation,  the  cost  savings  is  essentially  based 
only  on  the  cutting  cost.  That  is,  we  need  a  number  to  reflect  the  savings  of  cutting  the 
size  combination  in  this  section  once  instead  of  twice.  (Note  the  length  of  fabric 
required  for  the  section  is  the  same  before  and  after  the  merger  and  hence  has  no  effect 
on  the  cost  savings  for  the  merger). 

Let  e  represent  the  number  of  cutting  inches  in  the  pattern  for  the  size  combination  in 
the  two  sections  being  considered.  Then  e  is  also  the  number  of  cutting  inches  required 
for  the  merged  section  as  well.  Recall  that  U  =  cutting  cost/inch. 

Thus,  Ue  +  Ue  =  cost  of  cutting  the  two  unmerged  sections,  and 
Ue  =  cost  of  cutting  the  merged  sections.  Hence, 

Ue  =  SAVINGS  in  cost  obtained  by  merging  the  two  sections.  (Illustration  attached). 

However,  the  merger  for  case  A  could  also  be  accomplished  by 

(ii)  changing  the  size  combination,  leaving  the  ply  height  the  same. 

For  example,  suppose  the  two  sections  both  contain  sizes  32  and  34.  The  merged 
section  will  then  contain  the  size  combination  2-32s  and  2-34s.  Here  the  savings  will  be 
the  decreased  cost  of  fabric  required  for  spreading  the  merged  sections.  Assume  the 
following  notation:  ^ 

Iji  =  length  of  fabric  required  to  cut  one  layer  of  the  1st  unmerged 
section, 

1q  =  length  of  fabric  required  to  cut  one  layer  of  the  2nd  unmerged 
sectitm,  and 

Iq  =  length  of  fabric  required  to  cut  one  layer  of  the  3rd  MERGED 
section. 

p  =  ply  height  of  the  unmerged  and  merged  sections 
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Recall  that  c  is  the  unit  cost  of  fabric 


Then,  the  savings  can  be  computed  as  cp(l^  +  li2  - 1^)*  (Illustration  attached). 

Thus,  for  case  A,  the  savings  is  the  max{Ue,  cp(lii  +  1^  -  lu)}* 

If  the  ply  heights  of  the  two  section  are  not  equal  and  the  second  method  of  merging 
the  two  sections  is  better  the  following  takes  place: 

Case  B: 

The  two  sections  do  not  contain  exactly  the  same  size(s),  but  are  of  the  same  ply 
height.  To  maintain  consistency,  the  only  possible  way  to  merge  two  such  sections  is  to 
merge  the  size  combination,  leaving  the  ply  height  unchanged.  This  is  precisely  the 
same  as  case  A(ii).  Hence  the  savings  computation  is 

cp(lii  +  Iq  -  la).  (Illustration  attached). 

Case  C: 

The  two  sections  do  not  contain  the  same  size  and  have  different  ply  heights.  The  only 
way  to  merge  two  such  sections  is  to  merge  the  size  combination.  This  is  the  same  as 
case  B.  Hence  the  savings  computation  is 

^  ~  (Illustration  attached). 

The  ply  height  of  the  section  being  merged  is  chosen  so  that  the  minimum  number  of 
overages  or  underages  are  created. 


**Feasibility  Checks: 

Step  4  of  the  algorithm  states  that  section  mergers  should  be  done  only  when  feasible. 
The  feasibility  of  such  mergers  are  based  on  two  conditions: 

(1)  Will  the  maximum  number  of  sizes  allowed  per  section  be  violated?  If  so,  do 
not  merge. 

(2)  Will  the  maximum  ply  height  be  viokited?  If  so,  do  not  merge. 
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Cherry  Picking  Algorithm  for  COP 


INPUT:  (1)  An  order  to  be  cut,  consisting  of  the  various  sizes  required  and  a  specified 
demand  quantity  for  each  of  these  sizes.  (2)  The  number  of  units  over  or  under  the 
demand  diat  will  be  allowed.  (3)  Maximum  ply  height  allowed.  (4)  Maximum  number 
of  sizes  allowed  per  section.  (5)  List  of  l/s  (these  are  the  fabric  lengths  required  for 
cutting  a  size  combination  i  -  like  small  and  large  together  -  in  a  particular  section). 

STEPS: 

1.  Let  ql  be  the  largest  quantity  of  any  size  remmning  in  the  order,  and  q2  be  the 
second  largest,  where  q2  <  ql. 

(If  there  is  no  such  q2,  then  one  of  two  cases  exists.  C!ase  1:  Only  one  size 
remains  in  the  order,  or  Case  2:  All  sizes  remaining  have  the  same  order 
quantity.  In  either  case,  set  q2  =  ql.) 

Form  set  S  by  selecting  all  sizes  remaining  in  the  order  which  have  a  quantity 
greater  than  or  equal  to  q2  minus  the  number  of  units  allowed  over  the  specified 
demand. 

2.  The  next  section  created  will  have  ply  height  =  min{q2,  max  ply  height}. 
Combine  the  sizes  in  set  S  in  this  section  in  a  way  so  that  a  minimal  amount  of 
fabric  will  be  required,  based  on  the  inputs  Ij.  For  example,  if  set  S  contains 
sizes  small  and  large,  it  may  be  necessary  to  create  two  sections,  one  containing 
size  small  and  the  other  size  large,  or  only  one  section  may  be  required  which 
contains  both  sizes  small  and  large.  In  the  general  case,  all  combinations  of  the 
sizes  in  set  S  should  be  considered  which  do  not  exceed  the  maximum  number 
of  sizes  allowed  per  section. 

3.  Reduce  the  order  demand  quantities  for  the  sizes  in  set  S  by  q2. 

4.  If  the  order  contains  a  size  with  positive  quantity  larger  than  the  number  of  units 
allowed  under  the  specified  demand,  go  to  step  1 . 

OUTPUT:  (1)  The  number  of  sections,  the  sizes  assigned  to  each  of  those  sections,  and 
the  ply  height  of  each  section.  (2)  The  total  estimated  fabric  length  required  to 
cut  the  order.  (3)  The  deviation  of  the  number  of  units  to  be  cut  from  the  actual 
number  of  units  required  in  the  order. 
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Improvemept  Algorithm  for  COP 


INPUT:  (1)  An  order  to  be  cut,  consisting  of  the  various  sizes  required  and  a  quantity 
desired  of  each  of  these  sizes.  (2)  The  number  of  units  over  or  under  the  demand  that 
will  be  allowed.  (3)  A  solution  to  the  problem  (see  below  for  details)  to  be  improved 
upon.  (4)  List  of  Vs  (these  are  the  fabric  lengths  required  for  cutting  a  size 
combination  i  -  like  small  and  large  together  -  in  a  particular  section).  (S)  Maximum 
ply  height  allowed.  (6)  Maximum  number  of  sizes  allowed  per  section.  (7)  The  cutting 
cost  of  the  fabric  per  inch.  (8)  The  unit  cost  of  the  fabric. 

A  SOLUTION  consists  of  the  following:  (1)  The  number  of  sections,  the  sizes  assigned 
to  each  of  those  sections,  and  the  ply  height  of  each  section.  (2)  The  total 
estimated  fabric  length  required  to  cut  the  order.  (3)  The  deviation  of  the 
number  of  units  to  be  cut  from  the  actual  number  of  units  required  in  the  order. 

OUTPUT:  The  output  from  the  improvement  algorithm  will  consist  of  a  solution  (as 

described  above). 

Step  0:  We  need  to  keep  track  of  starting  over.  If  we  start  over  and  cannot  find  any 
improvements  after  examining  all  possible  exchanges,  then  the  algorithm  will 
terminate. 

Each  section  contains  one  or  more  sizes.  A  portion  of  a  section  will  consist  of  only  one 
size.  For  example,  if  a  section  contains  sizes  M,  M  and  L,  the  portions  to  consider  are 
M,  L,  and  MM. 

STEPS: 

Step  1.  Consider  the  next  portion  of  one  section. 

Step  2.  Attempt  to  reassign  the  portion  from  its  original  section  to  one  or  more  of  the 
remaining  sections  so  that  the  reassignment  satisfies  the  feasibility  checks  listed  below. 
If  feasible  to  reassign,  compute  the  savings  that  would  be  achieved  by  making  the 
reassignment. 

Step  3  Attempt  to  swap  the  portion  from  its  original  section  with  a  portion  biom  one  of 
the  remaining  secdtms  so  that  the  reassignment  satifies  the  feasibilty  checks  listed 
below.  If  feasible  compute  the  savings  that  wtnild  be  achieved  by  making  the 
reassignment. 
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Step  4  Perform  the  reassignment  based  on  the  best  savings  computed. 

How  to  perform  the  merger  of  the  portion  with  a  section  and  how  to  compute  the 

associated  savings  can  be  described  exactly  as  per  the  Savings  Algorithm: 

« 

Case  A: 

The  portion  and  section  contain  exactly  the  same  size(s).  The  merger  can  be 
accomplished  in  one  of  two  ways: 

(i)  Increase  ply  height  by  spreading  one  section  on  top  of  the  other  and  making  no 
change  to  the  size  combination  in  the  section. 

To  compute  the  savings  achieved  in  this  situation,  the  cost  savings  is  essentially  based 
only  on  the  cutting  cost.  That  is,  we  need  a  number  to  reflect  the  savings  of  cutting  the 
size  combination  in  this  section  once  instead  of  twice.  (Note  the  length  of  fabric 
required  for  the  section  is  the  same  before  and  after  the  merger  and  hence  has  no  effect 
on  the  cost  savings  for  the  merger). 

Let  Cj  represent  the  number  of  cutting  inches  in  the  pattern  for  the  size  combination  in 
the  two  sections  being  considered.  Then  Cj  is  also  the  number  of  cutting  inches 
required  for  the  merged  section  as  well.  Recall  that  U  =  cutting  cost/inch. 

Thus,  UCj  +  UCj  =  cost  of  cutting  the  two  unmerged  sections,  and 
Uej  =  cost  of  cutting  the  merged  sections.  Hence, 

UCi  =  SAVINGS  in  cost  obtained  by  merging  the  two  sections. 

However,  the  merger  for  case  A  could  also  be  accomplished  by 

(ii)  changing  the  size  combination,  leaving  the  ply  height  the  same. 

For  example,  suppose  the  two  sections  both  contain  sizes  32  and  34.  The  merged 
section  will  then  contain  the  size  combination  2-32s  and  2-34s.  Here  the  savings  will  be 
the  decreased  cost  of  fabric  required  for  spreading  the  merged  sections.  Assume  the 
following  notation: 

Iji  =  length  of  fabric  required  to  cut  one  layer  of  the  original  section  from  which 
the  portion  will  be  cut  (section  A), 

lj2  =  length  of  fabric  required  to  cut  one  layer  of  the  candidate  section  into 
which  the  portion  will  be  added  (section  B), 
lj3  =  length  of  fabric  required  to  cut  one  layer  of  section  A  after  the 
reassignment  of  the  portion,  and 
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Ij4  =  length  of  fabric  required  to  cut  one  layer  of  section  B  after  the 
reassignment  of  the  portion. 

p  =  ply  height  of  the  unmerged  and  merged  sections 
Recall  that  c  is  the  unit  cost  of  fabric 

Then,  the  savings  can  be  computed  as  cp(lji  +  1^  -  la  -  W- 

Thus,  for  case  A,  the  savings  is  the  max{U&, ,  cpflj,  +  1^  -  la  *  W}* 

Case  B: 

The  portion  and  section  do  not  contain  exactly  the  same  size(s). 

(i)  Same  ply  height. 

To  maintain  consistency,  the  only  possible  way  to  merge  two  such  sections  is  to  merge 
the  size  combination,  leaving  the  ply  height  unchanged. 

(ii)  Ply  heights  not  the  same. 

The  merger  should  take  place  by  combining  the  size  combinations,  and  choosing  the 
ply  height  so  that  the  minimum  number  of  overages  or  underages  are  created  and  all 
other  feasbility  checks  are  satisfied. 

In  either  case  (i)  or  (ii),  we  have  the  same  situation  as  case  A(ii).  Hence  the  savings 
computation  is 


CpOil  +  W- 


Feasibility  Checks: 

The  feasibility  of  such  mergers  are  based  on  two  conditions; 

(1)  Will  the  maximum  number  of  sizes  allowed  per  section  be  violated?  If  so,  do 
not  merge. 

(2)  Will  the  maximum  number  of  units  over  and  under  the  demand  be  violated?  If 
so,  do  not  merge. 
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Appendix  D 


Savings  Algorithm  Source  Code 


1  /* . 

2  **  SHeader::  D:/cops/src/savings/case_ai.c  January  1991 

3  . - . •/ 

4 

5  /* . 

6  •  FILE  NAHE  :  case.ai.c 

7  *  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  January  1991 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 
10 

11  -  PURPOSE-  To  compute  the  savings  if  ply  heights  and  sizes 

12  -  in  both  sections  are  the  same. 

13 

14 

15  -  MODIFICATION  HISTORY- 

16 

17  . V 

18  #include  <stdio.h> 

19  #include  <stdlib.h> 

20  Ninclude  "savedec.h** 

21  #include  "savelcl.h" 

22 

23  float  case_ai<sect1,  sect2,  cut_cost) 

24  ” 

25  aection_t  seetl; 

26  8ection_t  sect2; 

27  int  cut_cost; 

28 

29  { 

30  int  i; 

31  int  e  »  0; 

32  float  savings; 

33 

34  for  (i«0;  i<  nun_of_sizes;  i'*-*)  ( 

35  e  «  e  +  (order. perimeterCiJ  *  sectl.sizesCi] ); 

36  e  «  e  (order. perimeterli]  *  sect2.sizesli) ); 

37  > 

38 

39  savings  =  (float)  eut_cost  •  e; 

40 

41  return! savings); 

42 

43  ) 

44 


D:/cops/src/savtngs/case_aii.c  January  1991 
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1. . . 

2  ■■  SHeader:: 

3  . 

4 

5  /• . 

6  -  FILE  NAME  :  case_aii.c 

7  -  PROGRAHHER  :  Terr?  A.  Smith 

8  •  DATE  URITTEN  :  January  1991 

9  -  ADDRESS  :  GTRl/CSITL  Atlanta  GA  30332  (404)  894-89S2 

10 

11  •  PURPOSE-  To  computa  the  savings  if  the  mits  or  ply 

12  height  is  not  the  same  in  tuo  sections. 

13 

14 

15  . */ 

16  #include  <stdio.h> 

17  #include  <stdlib.h> 

18  #include  "savedec.h" 

19  #include  "savelcl.h" 

20 

21  float  case_aii(sect1,  sect2,  unit_cost) 

22  " 

23  section_t  secti; 

24  section_t  sect2; 

25  int  ufit_cost; 

26 

27  < 

28  int  i; 

29  int  e  a  0; 

30  float  savings; 

31  float  sect1_inch; 

32  float  $ect2_inch; 

33  float  merge_inch; 

34  order_t  merged_order; 

35 

36  sect1_inch  ■  find_inches(sect1 .sizes); 

37  sect2_inch  a  find_inches(sect2. sizes); 

38  ~  ~ 

39  for  (iaO;  i<  nura_of_sizes;  i++)  < 

40  inerged_order[i]  a  O; 

41  merged_orderli]  *  inerged_order[i]  ♦  secti. sizesli); 

42  nierged_order(i]  a  inerged_order[i)  ♦  sect2. sizesli] ; 

43  >  ~ 

44 

45  a»rge_inch  a  f ind_inches(merged_order); 

46  "  ~ 

47  savings  a  unit_cost  •  8ect1.ply_height  •  {seet1_inch  sect2_inch  -  inerge_inch); 

48 

49  return( savings); 

50 

51  > 

52 
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0:/cops/src/savings/coinpute.c  January  1991 


I 

I 


2  -•  SHaader:: 

3  . */ 

4 

5  /• . 

6  •  FILE  NAME  :  coopute.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  January  1991 

*  9  •  ADDRESS  :  GTRI/CSITL  Atlanta  CA  30332  (404)  894-8952 

10 

11  •  PURPOSE*  To  detenalne  which  method  to  use  to  compute 

12  *  the  aavlngs. 

13 

14 

15  . */ 

16  Ninclude  <8td1o.h> 


17  finclude  <stdl1b.h> 

18  #1nclude  <mefflory.h> 

19  Ninclude  "aavedec.b* 

20  Ninclude  "savelcl.h" 

21 

22  float  cofflpute_sav1ngs(sect1,  sect2,  cut_cost.  un1t_cost,  tenp_save, 

23  max_sizes,  max_ply) 

24 

25  sect1on_t  secti; 

26  eection_t  8ect2; 

27  Int  cut^cost; 

28  Int  un1t_cost; 

29  8aving8^t  *te(np_save; 

30  Int  max_8lzes; 

31  Int  max_ply; 

32 

33  < 

34  Int  1; 

35  Int  e  s  0; 

36  float  aavlngs  >  (float)  0.0; 

37  float  save2  >  (float)  0.0; 

38  char  match  >1; 

39  Int  num_vA<1t8  ■  0; 

40  Int  j,  k,  count; 

41  char  match2; 

42 

43  temp_save->ply1  *  aectl.ply^helght; 

44  temp_8ave->ply2  »  8ect2.ply_height; 

45  ” 

46  for  (i«0;  i<nun_of_8izes;  (♦♦)  ( 

47  If  (secti. alzesCi]  sect2.sizes[1]) 

48  match  ■  0; 

49  num_un1ts  *  n<jn_un1ts  *  secti. slzesCI); 

50  nun  units  ■  num  units  *  sect2.sizes[f]; 

51  >  " 

52 

53 

54  If  (match)  i  /*  sizes  In  sections  are  the  same  V 

55  if  ((secti. ply_height  *  sect2.ply_height)  <•  max_ply)  ( 

56  savings  ■  case_ai (secti,  sect2,  cut_co8t); 

57  tenpt_save->type>  1; 


58  tefflp_save*>ply_height  *  tect1.ply_height  sect2.ply_height; 

59  >  ”  ~ 

60 

61  als*  if  (nuni_units  <>  iiiax_sizes)  i 

62  save2  ■  case_aii(sect1,  aect2,  un{t_cost); 

63 

64  /*  if  ((save2  >  savings)  ||  (taap_tave->ply_height  >  ■iax_ply}}  {*/ 

65  tefflp_save->type>  2; 

66  savings  ■  sava2; 

67 

68  tainp_savc*>ply_height  >  sect1.pty_height; 

69  /*>*/" 

70  > 

71  > 

72 

73  alsc  if  ((sect1.ply_haight  »  sact2.ply_haight)  tt  (n(ja_un{ts  <m  aiax_sizas))  < 

74  savings  ■  casa_sii(sect1,  sect2.  unit.cost); 

75  taap_save->type«  3; 

76  teffip_sava*>ply_haight  *  sact1.ply_height; 

77  >  ”  " 

78 

79  ''  else  if  (nun^units  <*  inax_sizes)  C 

80  te<np_save->ply_height  >  8ect1.ply_height; 

81  savings  *  case_aii(sect1,  sect2,  mit_cost>; 

82  t«np_8ave->type*  4; 

83  )  ” 

84 

85  teflp_save>>savings  •  savings; 

86 

87  return(savings); 

88 

89  > 

90 


1 

2 

/* . 

*•  (Header::  0:/cops/erc/savings/findinch.c 

January  1991 

4 

d 

6 

•  FILE  NAME  :  Findinch.c 

7 

•  PROGRAMMER  :  Terri  A.  Smith 

8 

•  DATE  WRITTEN  :  January  1991 

9 

-  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332 

(404)  894-8952 

10 

- 

11 

•  PURPOSE-  To  find  the  length  (in  inches)  in  the  liat  of  Is 

12 

- 

13 

- 

15 

(include  <stdio.h> 

16 

(include  <stdlib.h> 

17 

(include  <string.h> 

18 

(include  "savedec.h* 

19 

(include  "savelcl.h" 

20 

21 

float  find_inches(sizes) 

22 

23 

order_t  sizes; 

24 

25 

C 

26 

int  i,  i; 

27 

char  match  *  0; 

28 

29 

i  »  0; 

30 

while  ((Imatch)  U  (i  <  num_li8t))  < 

31 

match  «  1; 

32 

for  (j«0;  j<num^of_sizes;  ]•►»)  C 

33 

if  (sizeslj)  listlil.sizeslj)) 

34 

match  a  0; 

35 

> 

36 

♦♦i; 

37 

) 

38 

39 

if  (match) 

40 

return(list(--ij. inches); 

41 

else  ( 

42 

printf("  COULONT  FIND  "); 

43 

for  (iaO;  i<nu«_of_sizes;  i-*-*^)  ( 

44 

if  (sizesti]  >  0) 

45 

printfC'Xd  Xs  ",  sizesti],  order. ch_sizeslij>; 

46 

> 

47 

printf("\n"); 

48 

exit(O); 

49 

> 

50 

51 

> 

52 

1  /* . 

2  **  SHeader::  D:/cops/src/savings/getp8na.c  Decmber  1990 

3  . V 

4 

5  /* . 

6  •  FILE  NAME  :  Getparm.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  December  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  read  in  the  parameters  from  a  file 

12 

13 

14  . V 

15  #include  <stdio.h> 


16  #include  <stdlib.h> 

17  finclude  <string.h> 

18  finclude  "savedec.h" 

19  finclude  "savelcl.h** 

20 

21  int  get_paraffleters(ou_units,  iiiax_ply,  max_sizes, 

22  k,  init_ply,  q,  eut_cost,  unit_cost) 

23 


24 

int 

•ou_uni ts; 

25 

int 

*«iax_ply; 

26 

int 

*max_sizes; 

27 

int 

*k;  ■ 

28 

int 

•init_ply; 

29 

int 

*<i; 

30 

int 

•cut_co8t; 

31 

int 

•unit_cost; 

32 

33 

< 

34 

int  i 

1  it 

35 

FILE  *fp  >  NULL; 

36 

int  quantity; 

37 

float 

temp; 

38 

char  match; 

39 

40  if  <(fp  ■fopen("INPUT",  "r"))  »«  NULL)  € 

41  printf ("Cannot  open  input  file  -  getparm.c"); 

42  cxit(O); 

43  > 

44 

45  /*  set  order  and  list  values  to  -1  */ 

46  for  (i  >  0;  i  <  MAX.SIZES;  i>>)  ( 

47  order.numberCi]  ■  0; 

48  order .ch_sizea(iH0)  *0; 

49  order. perimeterli]  ■  0; 

50  > 

51 

52  for  (i«0;  i<MAX_LIST;  i+^)  < 

53  I istCi]. inches  >  (float)  0.0; 

54 

55  for  (J  ■  0;  J  <  MAX.SIZES;  ]♦♦) 

56  listdl.sizesCJ]  >  0; 

57  > 


58 

59 

60  fscanfCfp.^Xd",  ou_units); 

61  f«canf(fp,“Xd",  naxjaly); 

62  fscanf(fp,''Xd'',  Bax_>izes}; 

63  ftcanf(fp,'*)td",  Init _ply>; 

64  fscanf(fp,''Xd'',  k); 

65  f6C8nf<fp,"Xd",  cut_cost); 

66  f«canf(fp,"Xd'',  unit_cost}; 

67  f8canf<fp,"Xd",  q); 

68 

69 

70  /*  Input  Order  */ 

71  for  (I  »  0;  1  <  NAX.SIZES;  !♦♦)  i 

72  fscanf(fp,''Xd",  torder.nunberCil); 

73  tf  (order. nunbertU  »  *1)  < 

74  order. number  til  «  0; 

75  break; 

76  > 

77 

78  f8canf(fp,''Xd'*,  torder.perimeterCi] ); 

79  fscanf(fp,"Xs“,  order. ch.sizesCi] ); 

80  > 

81 

82  nun_of_sizes  *  i; 

83  .  ■  ■ 

84 

85  /*  Input  List  •/ 

86  i>0; 

87  uhile(l)  ( 

88 

89  f8canf<fp,"Xd",  (quantity); 

90 

91  if  (quantity  *2) 

92  break; 

93 

94  while  (quantity  1=  -1)  { 

95 

96  fscanf(fp,"Xd",  bn); 

97 

98  if  (m  >«  nifn_of_sizes)  < 

99  printf ("ERROR  in  reading  size  variable  *  getparm.c”); 

100  exit(O); 

101  > 

102 

103  listCi] .sizesCm]  >  quantity; 

104 

105  fscanf(fp,"Xd",  (quantity); 

106  > 

107 

108  f8canf(fp,"Xf",  (listli) .inches); 

109 

110  ♦♦i; 

111  ) 

112 

113 

114 


fclose(fp); 


115  return(i); 

116  > 

117 


1  . . 

2  --  $Header::  D:/cops/src/savings/globals.h  January  1991 

3  . V 

4 

5  /* . 

6  -  FILE  NAME  :  Globala.h 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  January  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  declare  all  global  variables 

12 

13 

14  . */ 

15  #include  <stdio.h> 

16  *include  "savedec.h" 

17  «include  ••savelcl.h" 

18 

19  ord_var_t  order; 

20 

21  list_t  •list  »  MULL; 

22 

23  int  n»jn_of_8izes; 

24 

25  int  nun_list; 

26 

27  int  total_order  ■  0; 

28 

29  int  curr_tot  »  0; 

30 

31  int  niJii_old_sect  ■  0; 

32 

33  section_t  ‘old^sect  ■  NULL; 


1  INCLUDES  •  savedec.h 

2  LIBNAME  s  savelib 

3 

4 

5  OBJS  >  \ 

6  globals.obj  \ 

7  getparm.obj  \ 

8  findinch.obj  \ 

9  case_ai.obj  \ 

10  case_Bi i .obj  \ 

11  computa.obj 

12 

13 

14  .c.obj: 

15  $(CC) 

16  S(LIB) 

17 

18 

19  globals.obj  :  globals.c  SdNCLUOES) 

20 

21  getparm.obj  :  getparm.c  SdNCLUDES) 

22 

23  findinch.obj  :  findinch.c  SdNCLUDES) 

24 

25  case_ai.obj  :  case_ai.c  SdNCLUDES) 

26  " 

27  case_aii.obj  :  case_aii.c  SdNCLUDES) 

28  ~ 

29  compute. obj  :  compute. c  SdNCLUDES) 

30 

31  savings. obj  :  savings. c  SdNCLUDES) 

32 

33  savings.exe  :  savings.obj  S(OBJS) 

34  cl  savings  /link  savelib. lib 

35 

36 

37  S(B)\savings.exe  :  savings.exe 

38  S(CP) 

39 

40  Sd)\savedec.h  :  savedec.h 

41  S(CP) 

42 

43 


22  typedef  int  order_tCMAX_SIZES]; 

23 

24  typedef  char  8izes_tCMAX_SIZES] CIOl; 

25 


26  typedef  struct  < 

27  order_t  minber; 

28  sizes_t  ch^sizes; 

29  int  perimeter (MAX_SIZES] ; 

30  }  ord_var_t; 

31 


32  typedef  struct  C 

33  order_t  sizes; 

34  float  inches; 

35  >  list_t; 

36 


37  typedef  struct  < 

38  order_t  sizes; 

39  int  ply_height; 

40  char  merged; 

41  >  8ection_t; 

42 


43 

typedef  struct  < 

44 

int  secti; 

45 

int  sect2; 

46 

int  ply_height; 

47 

float  savings; 

48 

int  type; 

49 

int  plyl; 

50 

int  ply2; 

51 

>  SBvings_t; 

52 

53 

54  int  get_parameters(int  ‘units,  int  •m8x_ply,  int  *max_sizes,  int  *k, 

55  int  •init_ply,  int  ‘q,  int  *cut_cost,  int  *unit_cost) 

56 

57  float  find_inches{order_t  sizes); 


g;  8:  Si  iS 


58 

59  float  case_ai(section_t  aecti,  section_t  sect2,  Int  cut_cost); 

60  "  ~ 

61  float  casa_aii(section_t  aecti,  aect1on_t  sect2,  int  unit_cost); 

float  co*npute_savings(section_t  aecti,  aection^t  aect2,  int  cut_coat, 

int  unit_cost,  aavings_t  *te(np_aave,  int  aiax_8izes,  int  aiax_ply) 


67  «endif 


19  extern  ord_var_t  order; 

20  extern  list_t  ‘list; 

21  extern  <nt  nun_l1st; 

22  extern  int  nun_of_sizes; 

23  extern  int  total_order; 

24  extern  int  curr_tot; 

25  extern  int  nijn_old_sect; 

26  extern  section_t  *old_sect; 

27 


28 


29  #endi  f 


6  ■  FILE  NAME  :  Savings. c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  Decenfaer  1990 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  6A  30332  (404)  894-8952 

10 

11  -  PURPOSE-  Main  program  which  controls  execution  of  other  procedures 

12 

13 

14  . V 

15  finclude  <stdio.h> 

16  dinclude  <malloc.h> 

17  #include  <mefflory.h> 

18  #{nclude  <stdlib.h> 

19  #include  <8tring.h> 

20  finclude  <t{me.h> 

21  finclude  <math.h> 

22  finclude  "savedec.b" 

23  finclude  "savelcl.h" 

24 

25 

26  fdefine  clockO  time(NULL) 

27 

28  aiainCargv,  argc) 

29  int  argv; 

30  char  *argcC]; 

31 

32  < 

33  /*  Input  Variables  */ 

34  int  ou.units; 

35  int  max_ply; 

36  int  max_8izes; 

37  int  initjsly; 

38  int  k; 

39  int  cut_cost; 

40  int  unit_cost; 

41  int  q; 

42 

43  /*  Output  Variables  •/ 

44  float  tot_length; 

45  int  unit_dev; 

46  char  unit_stringC10] ; 

47  float  inches; 

48 

49  int  i,  j,  X,  y;  /*  coutters  */ 

50  int  curr_8ect  ■  0;  /•  current  section  */ 

51  section_t  new_sect;  /•  new  sections  */ 

52  tection_t  *save_sect  ■  NULL;  /*  new  sections  */ 

53  div_t  n;  /*  quotient  and  remainder  */ 

54  savings^t  teap_save;  /*  temp  savings  -  1  structure  */ 

55  saving8_t  •8ave_list  ■  NULL;  /•  savings  list  V 

56  int  nuB_savings;  /*  f  of  savings  in  list  V 

57  int  ai,  I,  r,  s;  /•  counters  */ 


/*  the  total  amt  of  fabric  needed*/ 

/*  deviation  of  units  to  cut  from  order  */ 
/•  string  for  over,  under  •/ 

/•  used  in  output  */ 


/*  f  of  units  over/under  allowed  */ 


/•  max  ply  height  allowed  */ 
/*  f  of  sizes  allowed  /  section  */ 
/•  initial  ply  height  */ 
/*  f  of  merges  allowed  */ 
/*  cutting  cost  /  inch  •/ 
/•  unit  cost  */ 


/•  ply  used  for  initial  sections  •/ 


58  char  aiergers_possible  «  1;  /*  Boolean  for  loop 

59  int  num_new_sect;  /*  #  of  total  new.sect 

60  int  num_save_sect;  /*  #  of  total  new_8ect 

61  int  num_units;  /*  #  of  units  in  one  section 

62  int  ieiit_count;  /*  #  of  units  in  all  sections 

63  int  order_couit;  /•  #  of  units  in  order 

64  int  rHjn_inergers  >0;  /*  #  of  aiergers 

65  FILE  *fp;  /*  output  file  pointer 

66  clock_t  start_time,  en6_tinie;  /•  tines 

67  double  total_tiine;  /*  total  tine  program  runs 

68  float  marker;  /*  inches  in  marker 

69  float  tot_marker;  /*  total  inches  in  all  markers 

70  char  match2;  /*  boolean  value 

71  int  count;  /*  comts  the  sections 

72  int  oldjsly;  /*  ply  height  of  older  section 

73  section_t  temp_sect;  /*  temporary  section 

74  int  sdd_sect;  /*  #  of  sections  to  add 

75  order_t  tefflp_order; 

76  order_t  hold_8izes; 

77  int  absl,  abs2; 

78 

79  start_tiine  =  clockO; 

80 

81  if  <<fp  »  fopenC'OUTPUT",  “h"))  «  NULL)  { 

82  printfC'CANNOT  OPEN  OUTPUT  FILE  savings.c\n“); 

83  exit(O); 

84  > 

85 

86  /• 

87  Allocation  of  input  lie; 

88  */ 

89  if  ((list  »  <list_t  *)malloc(HAX_LIST  *  8izeof(list_t)))  ««  NULL)  < 

90  printfC'ALLOCATION  ERROR  FOR  LIST  savings. c\n“); 

91  exit(O); 

92  ) 

93 

94  /• 

95  Get  parameters  and  print  initial  stuff  to  output  file 

96  •/ 

97  ntm_list  »  get_parameters(Soujjnits,  &inax_ply,  tinax_sizes,  &k,  tinit_ply, 

98  &q,  Scut_cost,  4unit_cost); 

99 

100  fprintflfp,  "SAVINGS  ALGORITHM  2\n\n"); 

101  fprintfCfp,  "MAX  PLY  «  *d  MAX  #  OF  UNITS  PER  SECTION  «  Xd\n".  max_ply.  inax_sizes); 

102  /•  fprintf(fp,  "UNIT  COST  ■  Xd  cents  CUT  COST  *  Xd  cents\n",  unit_cost,  cut_cost); 

103  */ 

104  fprintfCfp,  "K  *  Xd  INIT  PLY  »  Xd  0  «  Xd\n\n",  k,  init_ply,  q); 

105  fprintfCfp,  "0«0ER\n"); 

106  for  Ci“0;  i<num_of_sizes;  i-*^)  < 

107  fprintfCfp,  "iw  SIZE  Xs\n",  order. nutberli],  order.ch_sizesti]); 

108  > 

109 

110  /* 

111  Allocate  space  for  two  sets  of  sections 

112  V 

113  for  Ci“0;  l<num_of_sizes;  i**) 

114  total_order  ■  total_order  ♦  order.nutberCi); 


*/ 

•/ 

V 

*/ 

•/ 

*/ 

*/ 

*/ 

V 

*/ 

*/ 

•/ 

*/ 

•/ 

*/ 

*/ 

*/ 


115 

116  if  ((old_sect  ■  (section_t  *)maUoe(tot8l_order  •  sizeof (section_t)))  ==  NULL)  < 

117  printfC'ALLOCATION  ERROR  FOR  OLD  SECTION  savings. c\n"); 

118  exit(O); 

119  > 

120 

121  if  ((save_sect  *  (section_t  *)fflaUoc(total_order  *  sizeof(section_t)))  NULL)  { 

122  printf("ALL0CAT10N  ERROR  FOR  SAVE  SECTION  savings. cNn"); 

123  exit(O); 

124  > 

125 

126  for  (i*0;  i<nua_of_sizes;  i+^)  < 

127  temp_orderti]  *  order. nunberti]; 

128  > 

129 

130  /• 

131  Assign  each  unit  in  order  to  a  separate  section  of  initial 

132  ply  height 

133  */ 

134  for  <i  "0;  i  <  total_order;  i'*-*’)  C 

135  old_sectti) .ply_height  *  q; 

136  old_sectCi] .merged  >  0; 

137 

138  for  (j=0;  j<  KAX_SIZES;  ]♦♦) 

139  old_sectIi]  .sizeslj]  >0; 

140  > 

141 

142  unit_count  *  0; 

143  for  <i=0;  i<n(jn_of_sizes;  i+*)  C 

144  n  *  divCorder.nunberCi] ,  q); 

145  for  <j*0;  j<n.quot;  ]♦♦)  { 

146  old_sect(curr_sect] .sizes [i]  *  1; 

147  ♦♦curr_sect; 

148  unit_count  *  unit_count  q; 

149  >  ” 

150  > 

151 

152  for  (i=0;  i<nijn_of_sizes;  i**)  < 

153  n  s  div(order.number[i] ,  q); 

154  for  (j*0;  j<n.rem;  j++)  C 

155  unit_dev  »  total_order  -  unit_count; 

156  if  (<ou_units  •  unit_dev)  <  0)  { 

157  old_8ectCcurr_sect] .sizesli]  »  1; 

158  ♦♦curr_sect; 

159  unit_count  »  unit_count  q; 

160  >  ~ 

161  > 

162  } 

163 

164  ntii)_old_sect  ■  curr_8ect; 

165 

166  /* 

167  Allocate  space  for  savings  list  and  initialize 

168  •/ 

169  if  ((save_list  >  (savings_t  *)malloc(NAX_SAVINGS  *  sizeof (savings_t)))  «  NULL)  { 

170  printf("ALLOCATION  ERROR  FOR  SAVINGS  LIST  savings. cNn"); 

171  exit(O); 


172  > 

173 

174  for  (i«0;  i<HAX_SAVlNCS;  i*+)  < 

175  tave_list(i] .savings  ■  (float)  0.0; 

176  8ave_li$t[i] .ply_height  «  0; 

177  save_list(i] .type  ■  0; 

178  >  ~ 

179 

180 

181  /• 

182  Main  loop  in  the  Savings  algorithm: 

183  ■  creates  a  savings  list  and  swrges  sections  one  at  a  time. 

184  -  a  temporary  section  is  created  and  sierged  with  initial  sections 

185  until  it  is  completely  filled.  It  is  then  save  in  the 

186  save_section  and  a  new  temporary  section  is  started 

187  *  When  all  sections  are  saved  to  the  save_section  then  program  is 

188  terminated 

189  •/ 

190 

191  ni*i_save_sect  ■  0; 

192  while  (fflergers_possible)  < 

193 

194  for  (i=0;  i<MAX_SAVINGS;  i**)  { 

195  8ave_listCi] .savings  *  (float)  0.0; 

196  save_list[i] .ply_height  =  0; 

197  save_list(i] .type  *  0; 

198  ) 

199 

200 

201  printfC'NUM  OLD  SECT  *  Xd\n“,  ntri_old_sect); 

202  if  (num_old_sect  <=  1) 

203  break; 

204 

205  n»jii_units  »  0; 

206 

207  /* 

208  When  the  max  nunber  of  units  per  section  is  reached,  the  section 

209  is  saved  in  save_section 

210  V 

211  for  (j=0;  j  <num_of_sizes;  j*+) 

212  nijii_units  =  old_sectI01  .sixes(j)  ♦  num_units; 

213 

214  if  (num_units  >*  max_sizes)  { 

215  memcpy(&save_seet[nLni_save_sectI,  told_$ectl0] ,  sizeof{section_t)) 

216 

217  for  (i  *  0;  i<ntiii_old_sect-1;  i+*) 

218  memcpy(Sold_sect(i] ,  Sold_sect(i*1J ,  8izeof(section_t)); 

219 

220  •*-»niiii_save_sect; 

221  --nifn_old_sect; 

222  >  ”  ' 

223 

224 

225  mergers_possible  >  0; 

226  nijn_s8vings  *  0; 

227 

228  /* 


Create  Savings  List 


229 

230 

231 

232 

233 

234 
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237 

238 
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241 
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245 
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252 

253 

254 

255 
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258 

259 

260 
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262 

263 

264 

265 

266 

267 

268 

269 

270 
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274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 


*/ 

i  >  0; 

for  (j»i*1;  j<nijn_olcl_sect;  j+>)  < 
teinp_save.sect1  ■  i; 
teinp_save.sect2  *  J; 
tefflp_save.ply_height  >  0; 
teinp_8ave. savings  ■  (float)  0.0; 
tenp_save.type  ■  0; 

cofflpute_savings(old_sect[i],  old_secttj],  cut_cost,  unit_cost, 
ttenp.save,  nx^sizes,  aiax_ply); 


»  >  0; 

while((m  <  nijn_savings)  U 

(tefflp_save. savings  <=  save_list[iiO. savings)) 
■•-hb; 


if  (la  l«  MAX_SAVINGS)  < 

for  (I  «  ni«n_savings;  I  >  m;  I--)  ( 

iaemcpy(&save_listCll .  8save_list[l-1],  sizeof (savings_t)) 

8iefflcpy(&save_list[l],  &te(np_save,  sizeof (savings_t)); 
if  (nijn_savings  <  MAX_SAVINGS-1) 

♦♦nun_savings; 

) 

> 

/* 

Merge  Sections 

•/ 


neM__8ect.ply_height  =  q; 
neH_seet. merged  »  0; 

for  (j=0;  j<  MAX_SIZES;  j**) 
neM_sect.sizes[j]  =  0; 

nifn_mergers  *  0; 
m  «  0; 

for  {i=0;  i<nun_savings;  i*+)  { 
r  »  save_listCi] .secti; 
s  >  save_listti] .sect2; 
nijn_units  ■  0; 

for  (j»0;  j  <niin_of_sizes;  )♦♦)  < 

nun_units  >  old_8ectCr]  .sizes [j]  ♦  nijii_units; 
if  <8ave_listCi] .type  l»  1) 

nLin_units  «  old_sectCs]  .sizeslj)  *  nijn_units; 
>  ” 

if  (<8ave_list[i].ply_height  msx_ply)  It 
( I old_8ectCr] .merged)  It 
( I old_sect(s] .merged)  It 
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287 

288 

289 
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307 

308 

309 

310 

311 

312 

313 

314 
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342 


(nun_units  <>  ■iax_tizes>  U 
(savc_ll8t[{].type  I-  0))  ( 

Mergera_possible  >  1; 
old_sect [r] .merged  >1; 
old_sect [s] .merged  >1; 

new_sect.ply_height  *  save_ll8tti] .ply_height; 
for  <j»0;  j<nun_of_8izes;  ]■*•♦)  { 

new_8ect.8izes[j]  *  new_8ect.8izes[j]  * 

old_8ect Ir] . 8i zes [ j] ; 
if  (8ave_listCi].type  l«  1) 

neu_8ect.8ize8(j]  *  new_8ect.size8[j]  * 
old_8ecttsl  .aizesCj) ; 

) 


/* 

If  the  savings  is  achieved  by  rearranging  sizes 
in  one  section  (not  by  putting  plys  on  top  of 
each  other),  then  the  two  ply  heights  of  the  sections 
must  be  manipulated  to  keep  the  order  correct, 
e.g.  If  one  section  has  ply  3  and  the  other  ply  10 
one  section  of  ply  3  with  bothe  sizes  combinations 
is  Riade  and  7  sections  of  kept  in  the  list  of  merging 
sections 

*/ 

if  (save_list[i] .type  i»  1)  ( 

for  (x*0;  x<ntin_of_sizes;  x**) 

hold_sizes(xl  s  old.sectls] . sizes [xl; 


/* 

Count  how  many  sections  in  the  sections  list  match 
the  given  section  to  merge 

*/ 

count  *  0; 

for  (lal;  l<num_old_sect;  l+*)  < 
mstch2  «  1; 

for  (j=0;  j<num_of_sizes;  j**)  { 

if  (old_sectCs]  .sizesCj]  Is  old_sect[l]  .sizeslj] ) 
match2  *  0; 

> 

if  (match2} 

♦♦count ; 

> 

/* 

If  the  count  is  greater  than  the  ply  height  of 
the  temporary  section,  combine  the  two  sections 
with  the  ply  height  of  tenporary  section  and  then 
delete  that  msnber  (ply  height)  of  sections  from 
the  section  list 

•/ 

if  ((save_list[i}.ply1  /  q)  <■  count)  < 
count  >  save_list(i].ply1  /  q; 
for  (1*1;  l<rKin_old_sect;  )♦♦)  { 
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371 
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373 
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375 
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■iatch2  >1; 

for  (j»0;  J<nLin_of_si2es;  j**)  i 

if  (hold_«ize8[j]  (■  old_8ect[l]  .sizes Cjl ) 
natch2  *  0; 

> 

if  ((inatch2)  (count  >  0))  { 

for  (m*!;  «<nuB_old_sect-1;  «»♦>) 

nemcpyCtold.sect DiO ,  8old_sect[iiHlf,  sizeof(sect{on_t}); 

”niJii_old_sect; 

--count; 

> 

> 

>  /*  save_list(i].ply1  <■  count  */ 


/* 

else  if  the  count  is  less  than  the  ply  height 
of  the  temporary  section,  then  the  temp  section 
will  have  a  ply  height  of  count  and  sections  are 
added  back  to  the  section  list  based  on  the  the 
old_ply  (of  temp  section)  minus  the  the  count 

*/ 

else  ( 

if  (count  >  0)  < 

if  (old_sect[0] .ply_height  >  count)  ( 
old_ply  *  old_secttO].ply_height; 
old_sect[0] .ply_height  *  count; 
new^sect.plyjieight  »  count; 
for  (i»0;  i<num_of_8izes;  (♦♦)  { 
if  (o(d_sect[0]. sizes [i]  >  0)  C 
add.sect  »  old_ply  •  count; 
tefflp_8ect.ply_height  ■  q; 
temp_sect .merged  •  0; 

for  (j»0;  j<nifn_of_sizes;  ]♦♦) 
tefflp_sect.sizes[j]  >  0; 

temp_sect.sizes[i]  >  1; 

for  (l»0;  l<old_8ect[0].8izes[i];  (♦♦)  < 
for  (j*0;  j<8dd_sect;  j*+) 

a)emcpy((old_sect[nijn_old_sect'^) ,  (temp_sect,  sizeof(section_t)) 

> 

>  /•  if  old_sect[0] .sizes (i)  >  0  •/ 

>  /•  for  i»0  etc  •/ 

)  /*  old_sect[0].ply  >  0  */ 

for  (l»1;  (<nuR_old_sect;  l*>)  ( 
match2  *1; 

for  (j»0;  j<nu»_of_sizes;  ]♦♦)  ( 

if  (hold.sizeslTl  I*  old_sect[l].sizes(J]) 
match2  *  0; 

> 


if  ((match2)  M  (cowt  >  0))  < 
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444 

445 
U6 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 


for  (in»l;  ■<nij»_old_8ect-1; 

■iefflepy(iold_ttct [m] ,  8old_aect[nKl1 ,  •izeof(section_t)) 


”niii_old_soct; 

--count; 

-1; 

) 

>  /•  for  l»1  etc  V 

>  /•  count  >  0  */ 

>  /*  else  */ 

3  /*  If  type  l»  1  */ 


♦+m; 

If  ('*-»niiiijnerger8  >»  k) 
break; 

> 

> 

■ieflicpy(&old_sect[01,  tnew_sect,  sizeof(section_t)); 

/* 

Merges  Complete 

*/ 


if  (save_list [i] .type  »  1)  < 
for  (i*s;  i<  num_old_sect-1; 

iiiefflcpy(&old_sectC{} ,  Sold_sect[i'«'1] ,  sizeof(sect{on_t)); 

--n(jn_old_sect; 

3  ~  " 

nun_savin3s  «  0; 


3  /*  End  of  While  <1)  •/ 

if  (num_old_sect  >  0)  f 

for  <i=0;  i<num_old_sect;  i+*)  { 

menicpy(&save_sectCrHjn_save_sect-«^1,  4old_secttiJ ,  sizeof(section_t}}; 
3 
3 


/* 

put  final  information  in  output  file 

*/ 

end_time  «  clockO; 

total_time  >  ((double)  end_time  -  start_time)  /  CLK_TCK; 

f pr  i  nt  f  ( f p,  ■•\n\n********************"************************\n" ) ; 

tot_length  *  (float)  0.0; 
unit_dev  ■  0; 
order_count  ■  0; 
unit_count  ■  0; 
tot_marker  ■  (float)  0.0; 

fprintf(fp,  "THE  «  OF  FlkAL  SECTIONS  ARE  :  Xd\n",  nun_save_sect); 


457  for  {i»0;  l<nijn_88ve_8ect;  <♦■»)  € 

458  fprintf(fp,  "SECTION  Xd  HAS  PLY  •  Xd\n",  i,  8ave_8ect(i] .ply.height); 

459  for  (j«0;  j<niin_of_8ize8;  ]♦♦)  f 

460  if  (8ave_8ectCi] .8ize8Cj]  >  0)  < 

461  fprintf(fp,  "  AND  Xd  SIZE  Xs\n",  save_8ect[i].8fza8[j].  order. ch_8i zes [ j] ) 

462  unit.coint  ■  unit.count  *  (aave.sectlil.alzealjl  *  aave.sectCi] .ply_heioht}; 

463  >  " 

464  > 

465  aorker  >  find_inche8(save_sectli].8ize8); 

466  inchea  >  Darker  "  save_8ect(Il .ply.height; 

467  fprintfffp,  "MARKER  LENGTH  »  X7.2f  THE  TOTAL  LENGTH  »  X7.2f\n\n", 

468  Darker,  inchea); 

469  tot.length  ■  tot_length  *  inchea; 

470  totjnarker  a  totjaarker  *  Darker; 

471  >  ~ 

472 

473  for  (jaO;  j<nuB_of_aize8;  ]♦♦) 

474  order_count  >  order_co«ait  *  order.nunber  [ j] ; 

475 

476  unit_dev  ■  order_count  -  unit_count; 

477  if  <unit_dev  >  0) 

478  atrcpy<unit_8tring,  "UNDER"); 

479  elae  if  <unit_dev  0) 

480  atrcpy(unit_8tring,  "\0"); 

481  elae  < 

482  unit_dev  »  unit_dev  *  -1; 

483  atrcpy(unit_8tring,  "OVER"); 

484  >  ” 

485 

486  fprintflfp,  "TOT  MARKER  a  X7.2f  TOT  LENGTH  a  X7.2f,  UNIT  OVER/UNDER  a  Xd  Xs\n\n". 

487  tot_Darker,  tot_length,  »jiit_dev,  unit.atring); 

488  fprintf<fp, ""TOTAL  TIME*"  Xf  SECONDS\n",  total.time); 

489 

490 

491  /* 

492  Free  all  apace  and  cloae  output  file 

493  •/ 

494  if  (liat  !■  NULL) 

495  freediat); 

496 

497  if  <8ave_li8t  l»  MULL) 

498  free(8ave_li8t); 

499 

500  if  (old.aect  |a  NULL) 

501  free(old_8ect); 

502 

503 

504  fcloaeffp); 

505 

506  return(O); 

507  > 


Appendix  E  Cherry  Algorithm  Source  Code 


1  /* . 

2  --  $Header::  D:/cops/src/cherry/cherdec.h  Oecenter  1990 

3  . . 

4 

5  /* . 

6  •  FILE  NAME  :  Cherdec.h 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  URITTEN  :  December  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 

10 

11  -  PURPOSE*  To  define  alt  variables  and  procedures 

12 

13 

14  . */ 


15  «ifndef  CHERDEC^H 

16  ^define  CHERDEC.H 

17 

18  «define  MAX.LIST  1000 

19  «derine  MAX.SIZES  25 

20 

21  typedef  int  order.t [MAX.SIZES]; 

22 

23  typedef  char  si les.t [MAX.SIZES] [10]; 

24 

25  typedef  struct  ( 

26  order.t  nurber; 

27  sizes.t  ch.sizes; 

28  >  ord.var.t; 

29 

30  typedef  struct  ( 

31  order.t  sizes; 

32  float  inches; 

33  >  list.t; 

34 

35  typedef  struct  ( 

36  order.t  sizes; 

37  int  ply.height; 

38  >  section.t; 

39 

40  int  getj>8rameters<int  ‘units,  int  ‘maxjjly,  int  *max_sizes); 

41 

42  float  f ind_inches(order_t  sizes); 

43 

44  float  combi ne.inchesCorder.t  set.s); 

45 

46  void  check.inches(section_t  ‘temp.secs,  int  ‘ntin.temp.secs); 

47 

48  void  clear.tempfsection.t  ‘temp.secs,  int  ‘nun.teitp.cecs); 

49 

50  void  copy.hold.to.sectionsO; 

51 

52  void  onesCorder.t  set.s,  section.t  ‘temp.secs,  int  ‘nun.temp.secs); 

53  ~  ” 

54  void  twosCorder.t  set.s,  section.t  ‘temp.secs,  int  •nun.temp.secs); 

55  ~  ” 

56  void  threeslorder.t  set.s,  section.t  ‘temp.secs,  int  ‘num.temp.secs); 

57 


S^Si^SS 


58  void  foursCordtr  t  set  s,  section  t  *te(np  secs,  int  *nin  temp  secs); 

59 

void  fives(ordep_t  set_s,  section_t  •tesp.secs,  int  *nun_tsnp_secs); 
void  sixes(order_t  set_s,  section_t  *tenp_secs,  int  *nun_temp_secs); 
fendif 


2  *■  SHeader::  D:/cops/src/savings/savedec.h  Oecentier  1990 

3  . •/ 

4 

5  /* . 

6  •  FILE  NAME  :  Savelcl.h 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  December  1990 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  *  PURPOSE-  To  define  all  global  variables 

12 

13 

14  . •/ 


15  fifndef  CHERLCL.H 

16  Mefine  CHERLCL~H 

17 

18 

19  extern  ord_var_t  order; 

20  extern  li8t_t  ‘list; 

21  extern  int  nun_list; 

22  extern  int  nuii_of_8izes; 

23  extern  order_t  tefflp_order; 

24  extern  int  nijn_sections; 

25  extern  float  total_inches; 

26  extern  float  prev_inch; 

27  extern  8ection_t  *sections; 

28  extern  int  nifn_hold_secs; 

29  extern  8ection_t  *hold_secs; 

30  extern  int  ply.height; 

31 

32 

33  fend if 


1  /* . 

2  **  SHeader::  D:/cops/src/cherry/cherry.c  Dece«nber  1990 

3  . */ 


4 

5  /* . 

6  -  FILE  NAHE  :  Cherry.c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  December  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  S94-89S2 

10 

11  *  PURPOSE*  The  main  program  which  executes  all  other  procedures 

12 
13 


14 

15 

#include  <stdio.h> 

16 

#include  <itialloc.h> 

17 

#include  <stdlib.h> 

18 

finclude  <string.h> 

19 

#include  <fflenK)ry.h> 

20 

#include 

<time.h> 

21 

#include  "cherdec.h'' 

22 

#include  "cherlcl.h" 

23 

24 

#define  clockO  time(NULL) 

25 

26 

main(argv,  argc) 

27 

int  argv; 

28 

char  * 

'argc  (1 ; 

29 

30 

31 

/*  Input  Variables  •/ 

32 

int 

ou_units; 

/*  #  of  units  over/under  allowed  V 

33 

int 

max  _ply; 

/*  max  ply  height  •/ 

34 

int 

max_sizes; 

/*  #  of  sizes  allowed  /  section  */ 

35 

36 

/*  Output  Variables  */ 

37 

int 

num_teinp_secs; 

/•  #  of  total  sections  */ 

38 

float 

tot_length; 

/•  total  length  of  fabric  */ 

39 

float 

tot_marker; 

/*  total  length  of  fabric  •/ 

40 

section_t  •tefflp_secs=NULL;  /*  each  section  description  */ 

41 

int 

unit_dev  *  0; 

/*  deviation  of  #  of  units  from  order  •/ 

42 

char 

unit_stringC10] 

;  /•  string  to  print  over,  under  */ 

43 

44 

int 

qi; 

/*  largest  quantity  in  order  •/ 

45 

int 

qZ; 

/*  2nd  largest  quantity  in  order  •/ 

46 

int 

s_var; 

q2  minus  ou_units  */ 

47 

order_ 

_t  set_s; 

/*  set  S  of  sizes  •/ 

48 

int 

max_sectionss0; 

/*  max  #  of  sections  to  allocate  •/ 

49 

char 

repeat_loop; 

/*  boolean  to  loop  again  or  not  */ 

50 

int 

i,  j,  k,  l.m.n; 

/*  counters  */ 

51 

float 

inches; 

/•  used  for  printing  results  */ 

52 

float 

marker; 

/*  used  for  printing  results  •/ 

53 

int 

sets_cnt; 

/*  #  of  sizes  in  set  S  •/ 

54 

FILE 

*fp; 

/*  output  file  pointer  •/ 

55 

int 

unit_count  »  0; 

/*  #  of  units  in  all  sections  •/ 

56 

int 

order_count  »  0 

;  /•  #  of  units  in  order  •/ 

57 

int 

ou_count  *  0; 

/•  count  to  determine  if  repeat  loop  */ 

58  clock_t  *tart_tinie,  end_tiine; 

59  double  total_tiine; 

60 

61  start.time  ■  clockO; 

62 

63  /* 

64  Open  output  file 

65  */ 

66  if  «fp  »  fopen  (“OUTPUT",  "w"))  »»  NULL  )  { 

67  printf<"CANNOT  OPEN  OUTPUT  FILE  cherry.cXn"); 

68  exit(O); 

69  > 

70 

71  /* 

72  Allocate  apace  for  the  list  of  Is 

73  V 

74  if  ({list  «  (list_t  *>inalloc(MAX_LIST  *  sizeof(list_t)))  ««  NULL)  ( 

75  printf(“ALLOCATION  ERROR  FOR  LIST  eherry.c\n"); 

76  exit(O); 

77  > 

78 

79  nun_list  «  get_paraineters(&ou_units,  &fflax_ply,  &niax_sizes); 

80  ~ 

81  fprintf(fp.  “CHERRY  ALGORITHM\n\n“); 

82  fprintf(fp,  “NAX  PLY  >  Xd  HAX  #  OF  UNITS  PER  SECTION  s  Xd\n»,  maxjsly,  max.sizes) 

83  fprintf(fp,  “\n  ORDER\n“); 

84  for  (i»0;  i<rKin_of_sizes;  i+*)  i 

85  fprintf(fp,  “Xd  SIZE  Xs\n“,  order.nurberti) ,  order.ch_sizes[i] }; 

86  order_count  ■  order_count  +  order. rxinberti); 

87  >  " 

88 

89  /* 

90  Allocate  space  for  the  max  nijri>er  of  sections 

91  for  the  three  list  of  sections 

92  */ 

93  for  (i«0;  i<  MAX_SIZES;  i++)  { 

94  max^sections  >  max_sections  order.nuit>erli] ; 

95  >  “  ~ 

96 

97  if  ((sections  «  (section_t  *)malloc(max_sections  •  sizeof (section_t)))  »=  NULL’)  ( 

98  printfC'ALLOCATION  ERROR  FOR  SECTIONS  cherry.c\n"); 

99  exit(O); 

100  > 

101 

102  if  ((tefnp_secs  ■  (section_t  *)malloc(max_sect.ions  *  sizeof  (sect  ion_t)))  «  NULL)  { 

103  printfC'ALLOCATION  ERROR  FOR  SECTIONS  cherry.eXn"); 

104  exit(O); 

105  > 

106 

107  if  ((hold_secs  >  (section_t  *)nialloc(max_sections  *  sizeof(section.t)))  »  NULL)  ( 

108  printfC'ALLOCATION  ERROR  FOR  SECTIONS  cherry.c\n“); 

109  exit(O); 

110  > 

111 

112 

113  for  (i«0;  i<iaax_sections;  !♦♦)  < 

114  sectionsCi] .ply_height  B  0; 


115 

for  (i»0;  J<HAX_SIZES; 

116 

tectionst<].tizes[J]  ■  0; 

117 

> 

118 

119 

nu*_sections  ■  O; 

120 

121 

/* 

122 

^  Main  Loop  of  program 

123 

V 

124 

while  (1)  < 

125 

126 

for  (i»0;  {<max_tect{ons;  {. 

127 

teMp_secsti].ply_he{ght  >  0; 

128 

for  <j«0;  j<MAX_SIZES;  ]♦♦) 

129 

tamp.aecsCi]  .sizes CJl  ■  0; 

130 

> 

131 

132 

repeat_loop  ■  0; 

133 

134 

/* 

135 

Choose  Q1  and  02 

136 

•/ 

137 

q1  ■  0; 

138 

q2  -  0; 

139 

140 

for  (i«1;  i<nimi_of_sizes;  i-r+)  < 

141 

if  (order.nunberCi]  >  order .rsnber [q1  ] ) 

142 

q1  «  i; 

143 

> 

144 

145 

q2  -O; 

146 

for  <i»0;  i<nutn_of_sizes;  i++)  i 

147 

if  <il«  q1)  C 

148 

if  (order.nunberCi]  >»  0)  < 

149 

q2  »  1; 

150 

break; 

151 

> 

152 

> 

153 

> 

154 

155 

for  <i*0;  i<nun_of_8ize8;  i++)  C 

156 

if  (i  l>  q1) 

157 

if  (order.nunberCi]  >»  order.nunberCqZ] > 

158 

q2  »  i; 

159 

> 

160 

161 

if  (order.nunberCqZ]  «  0) 

162 

q2  »  q1; 

163 

164 

165 

/• 

166 

Form  set  S  with  all  the  sizes  remaining  in  the  order 

167 

which  have  a  quantity  greater  than  or  equal  to  q2  -  the  nunber 

168 

of  units  allowed  over  the  specified  demand 

169 

*/ 

170 

s_var  ■  order.nunberCqZ]  -  ou_units; 

171 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 


for  (f»0;  f<HAX_SI2ES;  !♦♦>  € 

if  ((order .nutberli]  >■  s_var}  tt  (order.nuaber  >  0))  ( 
*1; 

♦♦sets_cnt; 

> 

else 

set_s({]  ■  0; 

> 

/• 

Set  ply  height  of  next  section  to  the  ■in(q2,  nx  ply) 

V 

ply_heioht  ■  order.niji4)ertq2]; 
if  (iiiax_ply  <  order. nuii>er(q2}) 
ply_height  •  ■ex.ply; 


/* 

CoeSiine  all  posibilities  of  sections  to  5  units 
per  section 

*/ 

inches  >  (float)  9999.0; 
for  (i«0;  i<HAX_SI2ES;  i*+) 
tenp_orderti]  *  0; 
num_tenp_sec8  >  0; 

totsMnches  «  (float)  0.0; 


oncs(set_s,  tenp_8ec8,  tnuii_te<ip_sccs); 

check_inches(teinp_secs,  tnija_tenp_secs); 

elear_tefflp(temp_8ecs,  tnum_teinp_8ecs); 

if  ((sets_cnt  >  1)  U  (max.sizes  >  1))  ( 
tH08(set.s,  teinp_secs,  tnuni_temp_secs); 
check_inches(teinp_secs,  tnun_teinp_secs); 
clear_teinp(teinp_secs,  tnuii_tenp_sec8); 

>  ” 

if  ((8ets_cnt  >  2)  U  (msx_sizes  >  2))  ( 
threes(set_s,  teinp_secs,  tnun_tesp_secs); 
check_inches(tenp_secs,  tnus_te<np_secs); 
clear_teinp(tefflp_secs,  tniii)_teinp_secs); 

>  - 

if  ((sets_cnt  >  3)  U  (inax_size8  >  3))  < 
fours(set_s,  temp.secs,  Snum.tenp.secs); 
check_inches(teinp_secs,  tnus_tenp_secs); 
clear_tamp(teinp_secs,  trxn_tc<np_secs); 

)  " 

if  ((sets_cnt  >  4)  U  (Mx.sizes  >  4))  C 
fives(set_s,  teMp.secs,  tnus_tasp_secs); 
check_inches(tenp_secs,  8nus_taep_secs); 
clear_tainp(tanp_secs,  8nus_tosp_secs); 

) 


229 

230  if  ((sets.cnt  >  5)  U  (max_sizes  >  5))  C 

231  sixes(8et_s,  tenp_aec8,  tnm^teap.atca); 

232  check_{nche8(teap_8ec8,  tnija_teiip_8ec8); 

233  clear_tcay)(teinp_8ec8,  linuB_tcnp_secs); 

234  >  "  ' 

235 

236  copy_hold_to_8ections(); 

237 

238  /* 

239  Raduca  tha  ordar  daoiand 

240  V 

241  for  («B(nua_8action8  •  mm.hotd.aaca);  ■<n(ja_8actfan8;  C 

242  for  (rv>0;  ix  nin_,of_8izas;  rx>)  { 

243  If  (aactionstnO  .aizaatn]  1)  < 

244  ordar. nunbarCn]  ■  order. nuaterCn]  •  ply_height; 

245  8at_8(n]  >  0; 

246  >  “ 

247  > 

248  > 

249 

250  /* 

251  Repeat  loop  if  the  order  contains  a  eize  w/  positive 

252  quantity  greater  than  the  nuilier  of  wits  allowed  under  the 

253  specified  demand,  else  break  out  of  loop 

254  */ 

255 

256  ou_count  *  0; 

257  for  (iaO;  i<mjB_of_sizes;  i*-*’)  C 

258  ou_count  ■  ou.count  *  order. nuiterli]; 

259  if  (ou_count  >  ou^units) 

260  repeat.loop  »  1; 

261  > 

262 

263  if  (Irepeat.loop) 

264  break; 

265 

266  >  /•  END  of  While  (1)  •/ 

267 

268  end_time  «  clockO; 

269  total_tiine  *  ((double)  end_time  -  start_tiine)  /  CLK_TCK; 

270  ” 

271  /• 

272  Print  Out  Results 

273  */ 

274  f pr i nt f ( f p,  «\n\n*********************************************\n" ) ; 

275  fprintf(fp,  "THE  NUNBER  OF  FINAL  SECTIONS  «  Xd\n",  nun_sections); 

276 

277  for  (i*0;  i<nun_sections;  i^*)  C 

278  marker  >  find_inches(sections(i] .sizes); 

279  inches  ■  marker  *  sectionsCil .ply^height; 

280  total_inches  ■  total_inches  *  inches; 

281  tot_marker  «  tot_marker  *  marker; 

282  fprTntf(fp,  >\nSECTI0N  Xd  HAS  PLY  «  Xd\n",  i,  aectionsli] .ply_height); 

283  for  (j»0;  J<num_of_sizes;  ]♦♦)  < 

284  if  (sectionstil .sizeslj]  >  0)  < 

285  fprintf(fp,  "  HAS  Xd  SIZE  XaXn”,  sectionsli] .sizeslj] ,  order. ch_size8tj] ) 


286  (nft_count  ■  unit.count  *  (MCtlonstiJ.sfzMCJl  *  MCt{ons{i].pty_htight); 

287  >  " 

288  > 

289  fprintf(fp.  "MARKER  INCHES  ■  X7.2f  and  TOTAL  INCHES  X7.2f\n",  aarkar,  inches); 

290  > 

291  fprintfCfp,  "\nTOTAL  MARKER  INCHES  >  X7.2f  TOTAL  INCHES  >  X7.2f\n",  totjaarker,  total.inches) 

292 

293 

294  unit.dev  ■  order_count  ■  unit_count; 

295  if  (unit_dev  >  0) 

296  strcpy(unit_string,  "UNDER"); 

297  alse  if  (unit_dav  0) 

298  atrcpy{mit_atring,  "\0"); 

299  alse  C 

300  unit^dev  ■  unit_dev  •  -1; 

301  strcpy(tf)it_string,  "OVER"); 

302  > 

303 

304  fprintf(fp,  "UNIT  OVER/UNDER  >  Xd  Xs\n\n",  unit_dev,  unit.string); 

305  fprlntf(fp,  "TOTAL_TIME  ■  Xf\n",  total.tisie); 

306 

307 

308  if  (list  l«  NULL) 

309  free(list); 

310 

311  if  (sections  I-  NULL) 

312  free(sections); 

313 

314  if  (tenp.secs  I*  NULL) 

315  free(tenp_secs); 

316 

317  if  (hold.secs  l>  NULL) 

318  free(hold_secs); 

319 

320  felose(fp); 

321 

322  return(O); 

323  > 


1  . . 

2  **  $Header::  D:/cops/src/cherry/chkinch.c  Oecenfcer  1990 

3  . V 

4 

5  /* . 

6  •  FILE  NAME  :  Chkinch.c 

7  •  PROGRAMMER  :  Terrf  A.  Smith 

8  -  DATE  WRITTEN  :  December  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlante  GA  30332  (404)  894-89S2 
10 

11  •  PURPOSE*  To  determine  if  the  total  Inches  calculated  from 

12  *  the  last  grouping  of  sections  is  less  than  any  previous 

13  grouping.  If  so  the  sections  are  saved  in  the  hold 

14  -  sections. 

15 

16 

17  . V 

18  dinclude  <stdio.h> 

19  iinclude  <malloc.h> 

20  dinclude  <stdlib.h> 

21  finclude  <mefflory.h> 

22  dinclude  "cherdec.h" 

23  dinclude  "cherlcl.h” 

24 

25  void  check_inches(tefflp_secs,  nimi_te)np_secs) 

26  section_t  *teAp_secs; 

27  int  *nimt_te«p_secs; 

28 

29  ( 

30 

31  int  m,  i,  j; 

32 

33  if  ((tota (.inches  <  prev.inch)  U  (total.inches  >  (float)  0.0))  { 

34  num.hold.secs  ■  0; 

35  for  (m»0;  m<*niin_teinp.sees;  !!?*"•■)  { 

36  memcpy(&hold_secs(nifn_hold.secs} ,  Stemp.secs [m] ,  sizeof(section.t)); 

37  hold.secsCnun.hold.secs] .ply.height  *  ply.height; 

38  ♦♦nun.hold.secs; 

39  >  ”  " 

40  prev.inch  =  total.inches; 

41  >  ” 

42 

43  > 


1  /* . - . 

2  •>  SHtadcr::  0:/cops/src/chcrry/clrt€np.c  Dtcenbcr  1990 

3  . 

4 

5  /* . - . 

6  •  FILE  NAME  :  Clrtanp.c 

7  •  PROGRAMMER  :  Ttrrf  A.  Smith 

8  •  DATE  WRITTEN  :  January  1990 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE*  Initializaa  the  tamp  aactions 

12 

13 

14  . V 

15  Ninclude  <atdio.h> 

16  Ninclude  <malloe.h> 

17  Ninclude  <atdlib.h> 

18  finclude  «ieinory.h> 

19  finclude  "cherdec.h" 

20  finclude  "cherlcl.h" 

21 

22  void  clear_tefflp(tefflp_8ecs,  nuii_tefflp_secs) 

23  8ect{on_t  *tefflp_secs; 

24  int  *rKjnjtemp_8ecs; 

25 

26  < 

27  int  i.  j; 

28 

29  totaMnche8  •  (float)  0.0; 

30  for  (i»0;  i<  *nun_tefflp_8ec8;  i++)  < 

31  for  (i«0;  j<  num_of_8{zes;  ]■•■»)  < 

32  tefflp_sec8[i] .sizesCj]  >0; 

33  > 

34  > 

35  •nua_teinp_8ec8  ■  0; 

36 

37  > 


1 


0:/cops/src/cherry/canbine.c  January  1991 


3  . •/ 

4 

5  /* . 

6  -  FILE  NAME  :  Coitbine.c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  January  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  Finds  the  length  (in  inches)  of  the  combine  units 

12  -  in  one  section. 

13 

14 

15  . */ 

16  finclude  <stdio.h> 

17  finclude  <stdlib.h> 

18  #include  <string.h> 

19  Sinclude  "cherdec.b" 

20  Sinclude  "cherlcl.h" 

21 

22  float  cofflbine_inches(tenp_order) 

23 

24  order_t  temp_order; 

25 

26  ( 

27  float  inches; 

28 

29  inches  *  f ind_inches(tefflp_order); 

30 

31  return! inches); 

32  ) 

33 


1  /* . 

2  "  SHeader::  0:/cops/src/cherry/cphoid.c  Oecenber  1990 

3  . V 

4 

5  /• . . 

6  -  FILE  NAME  :  Cphold.c 

7  •  PROGKAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  December  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  •  PURPOSE-  Copies  the  temp  sections  into  the  hold  sections. 

12 

13  . */ 

14  #include  <stdio.h> 

15  finclude  <fflalloc.h> 

16  finclude  <stdlib.h> 

17  finclude  <meiiiory.h> 

18  finclude  "eherdec.h" 

19  finclude  "cherlcl.h" 

20 

21  void  copy_hold^to_section8() 

22 

23  < 

24 

25  int  m; 

26 

27  for  (m=0;  in<nun_hold_secs;  nH“»)  ( 

28  mefflcpy(&sectionsCnifn_sections],  Chold.secs [m] ,  sizeof(section_t)); 

29  sections(ntjn_sections]  .ply_height  «  ply_height; 

30  -^num.sections; 

31  }  “ 

32 

33 

34  > 


prev_inch  «  (float)  9999.0, 


D:/cops/src/cherry/findinch.c  January  1991 


1  /* 

2 

3 

4 

5  /* 

6  •  FILE  NAME  :  Findinch.c 

7  -  PROGRAMMER  :  Tarri  A.  Smith 

8  -  DATE  WRITTEN  :  January  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 
10 

11  -  PURPOSE-  Finds  the  current  unit  groining  in  the  list  of  Is. 

12  -  If  it  is  not  found  program  is  exited. 

13 

14 

15  -  MODIFICATION  HISTORY- 

16 

17  . V 

18  #include  <stdio.h> 

19  Dinclude  <stdlib.h> 

20  finclude  <string.h> 

21  #include  "cherdec.h" 

22  #include  "cherlcl.h" 

23 

24  float  find_inches(si2es) 

25 

26  order_t  sizes; 

27 

28  { 

29  int  i,  j; 

30  char  match  «  0; 

31 

32  i  «  0; 

33  while  (((match}  U  (i  <  num_list))  < 

34  match  «  1; 

35  for  (j«0;  j<nun^of_sizes;  ;♦♦)  i 

36  if  (sizesCj)  l«  listCi] .sizes(jl) 

37  match  ■  0; 

38  ) 

39  -M^i; 

40  } 

41 

42  if  (match) 

43  return(list[--i] .inches); 

44  else  { 

45  printf("\nC0UL0NT  FIND  "); 

46  for  (i«0;  i<nifn_of_sizes;  i++)  ( 

47  if  (sizesti]  >  0} 

48  printf("Xd  Xs  ",  sizesCi],  order.ch_sizes[i] ); 

49  > 

50  printf("\n"); 

51  exit(O); 

52  > 

53 

54 

55  > 

56 


1  /* . 

2  ••  SHtader::  0:/cops/src/ch«rry/f{ve«.c  January  1991 

3  . */ 

4 

5  /* . 

6  -  FILE  NAME  :  fivas.c 

7  •  PROGMMHER  :  Terri  A.  Smith 

8  -  DATE  URITTEN  :  January  1991 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 

10 

11  *  PURPOSE*  Racuraiva  procedure  to  gort^  unite  in  fivaa. 

12 

13  . . 

14  iincluda  <stdio.h> 

15  «includa  <stdlib.h> 

16  finclude  <8tring.h> 

17  fincluda  "chardec.h" 

18  fincluda  "cherlcl.h" 

19 

20  void  fivas(sat_s,  tcfflp_8act,  ni«i_tanp_aaca) 

21 

22  order_t  8at_t; 

23  section_t  *temp_8ecs; 

24  int  *nun_tetip_8ecs; 

25  < 

26  float  inches; 

27  int  j,  i,  k,  I,  m,  n; 

28  order_t  tetnp_order; 

29  float  hold_inches1; 

30  float  hold_inches2; 

31  int  hold_t«iip_nii«; 

32 

33  hold_teinp_num  ■  *num_teinp_secs; 

34  hold_inches2  •  total_inches; 

35  ~ 

36 

37  for  <i»0;  i<nuB_of_siie8;  i**)  < 

38  for  <j»i*1;  j<rHjn_of_sites;  ( 

39  for  (k*j*1;  k<nuB_of_sizes;  k*+)  ( 

40  for  <l»k*1;  l<nunt_of_8izes;  I'*-*’)  < 

41  for  (bpI+I;  m<nun_of_8izes;  !»♦♦)  ( 

42 

43  for  (n»0;  n<nu«_of_8izes;  n^) 

44  temp_order [n]  «  0; 

45 

46  if  <(:>et_sti]  «  1)  M  <set_8tjj  =»  1) 

47  <8et_8lk]  «  1)  U  (8et_stl]  «*  1) 

48  <8et_8[m]  «■  1))  < 

49  temp_order[i]  »  1; 

50  teiBp_order  C j]  *1; 

51  temp_order [k]  »  1; 

52  tamp_ordar[ll  »  1; 

53  tenp_ordartm]  -1; 

54  inches  ■  conibine_inches(tcnp_order); 

55  if  (inches  (float)  0.0)  < 

56  for  (n»0;  n<  niJR_of_sizes;  n«-f) 

57  tenp_sec8[*nun_tcnp_secs]  .sizes [n]  ■  0; 


s  g: 
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108 

109 

110 
111 

112  > 
113 


tota(_inches  ■  total.lnche*  ♦  Inches; 
tefflp_sacs(*nuB_tnp_secs].s1zest{]  *1; 
tenp_secs[*nkJB_,tcinp_secs]  .sizes [jl  *1; 
tafflp_secs{*nus_te«p_secs].sizes(k]  «  1; 
tcinp_secsC*nuM_teinp_secs].s{zestl]  ■  1; 
tcfflp_secsC*nuB_tanp_sacs].s{zesM  •  1; 
♦♦•nuB_te«p_secs; 

> 

tenp_order[i]  ■  0; 
tainp.orderCJl  *  0; 
tenp_ordertU  *  0; 
temp.ordertll  >  0; 
tesp.ordertaO  >  0; 

for  (n^;  n<nus_of_sizes;  n»+)  < 

if  ((n  !■  iru'cn  i>  j)  U  (n  l>  k)  U 

(n  l«  1)  88  (n  (>  ■)  88  (set_s[n]  «  1))  { 
tcnp_order[nl  *  1; 

> 

> 

hold.inchesi  *  totaMnches; 
ones(tenp_order,  tenp_secs,  nus_teffip_secs); 
check_inches(tenp_Becs,  niJB_tcaf>_secs); 

for  <n*0;  n<nui_of_sizas;  «*♦)  { 

if  <(n  l>  {)  88~(n  l>  j>  U  (n  l>  k)  U 
<n  l«  1)  88  (set_s[n]  ««  1>)  < 

— *niia_te««p_secs; 

> 

> 


total.inches  •  hold.inchesi; 
twos(teinp_order,  taap.secs,  nus.tenp^secs); 

totaMnches  *  hold_inches1; 
threes(tcmp_order.  tenp.secs,  nuB_teap_sccs); 

totaMnches  «  hold_inches1; 
fours(teiiip_order,  tcap.sccs,  nuB_tcap_secs); 

total_inches  *  hold_{nche8l; 
five3(teMp_order,  tenp.secs,  nus_tenp_secs); 

*nun_tai*p_secs  *  hold_teap_nuR; 
total_1nches  >  hold_inches2; 

> 

> 

> 

> 

> 


> 
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29 

30 

31 

32 

33 

34 

35 

36 
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*  Uaader: 


V 


FILE  NAME  :  'ours.c 

PROGRAMMER  :  Terri  A.  Smith 

DATE  WRITTEN  :  January  1991 

ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 


PURPOSE-  Recursive  procedure  to  group  unite  in  foura 


. . 

*include  <stdio.h> 
finctude  <stdlib.h> 

#include  <string.h> 

#include  "cherdec.h” 
finclude  "cherlcl.h" 

void  fours(set_a,  tenp_secs,  niiii_tefflp_8ecs) 

order_t  8et_s; 
section_t  *tefflp_8ecs; 
int  *nijn_temp_8ecs; 

( 

float  inches; 
int  j,  i,  k,  I,  n; 
order_t  temp_order; 
float  hold.inchesi; 
float  hold_inches2; 
int  hold_teinp_fHiB; 

hold_temp_nun  »  *num_temp_secs; 
hold_inches2  ■  total_inches; 


for  <i»0;  i<nuii_of_8i*es;  i++)  < 
for  <j«i+1;  j<nuii_of_sizes;  ( 
for  k<nuii_of_sizes;  k*+)  C 

for  l<nun_of_sizes;  I**)  ( 

for  (m*0;  m<niin_of_sizes;  »♦♦) 
tefflp_order[ni]  »  0; 

if  ((set_sCi]  «■  1)  U  (8et_s(j]  ■»  1)  U 
(set_sCk]  »  1)  U  (set_s(l}  »»  1>>  ( 
tetnp_order(i]  ■  1; 
temp_order[j]  «  1; 
teinp_order  Ck]  *1; 
tcnp_order(l]  ■  1; 

inches  ^  canbine_inche8(temp_order); 
if  (inches  l>  (float)  0.0)  C 

for  (m^O;  SK  nus_of_sizes;  le*-*) 

temp_secj[*nus_tenp_secs].sizes[ni}  >  0; 
total_inches  «  total.inches  *■  inches; 
tenp_secs[*nun_tenp_secs].size8[i]  >  1; 
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104  > 

105 


teinp_8ecs[*nijn_te(np_secs].sizes[j]  «  1; 
tefflp_secs[*nciii_tefflp_secs]  .sizes [k]  >  1; 
teinp_secs(*rHsn_tenp_secs].sizes[l1  ■  1; 
♦♦*nifn_temp_secs; 

temp^orderCi]  >  0; 
teinp_order[j]  ■  0; 
tenp_order[U  ■  0; 
tenp.orderCl]  >  0; 

for  (ifO;  a<num_of_sizes;  C 

if  ((m  l>  iTu'c*  I-  j)  U  (•  l>  k>  U 
(M  !■  1)  U  (set_s[n]  •*  1))  < 
tMp_arderDn]  *1; 

> 

> 

holdl_inches1  ■  total_{nches; 
ones(tcfflp_order,  tcop^sccs,  r«ji_teffp_secs); 
check_{nches(tenp_secs,  ixjii_tMp_tecs); 

for  (ni»0;  Hi<niin_of_8izes;  «>►*•)  { 

if  ((m  l«  i)  U  (ID  l>  j)  U  (■  l>  k)  U 
(m  |B  1}  U  (set_stffll  u  1})  i 
-  -•rKm_teflip_secs; 

> 


total^inches  «  hotd_inches1; 
twos(teinp_order,  teirp^secs,  nuri_teiip_secs); 

total_inches  ■  hold_inches1; 
threes<teinp_order,  t«fflp_8ecs,  rHjit_t«rp_8ecs); 

total_inche8  »  hold_inche8l; 
fours(temp_order,  tenip_secs,  ntin_teiip_secs); 

•fHjn_temp_secs  »  hold_tefrp_nu»; 
tot8l_inehes  »  hold_inches2; 

> 

> 

> 

) 


> 
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--  $Header:: 


FILE  MANE  :  Getparm.c 

PROGRAMMER  :  Terri  A.  Smith 

DATE  WRITTEN  :  December  1990 

ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 


PURPOSE-  To  read  in  the  parametera  from  a  file 


. */ 

#incliide  <stdio.h> 
iinclude  <stdlib.h> 

#include  <string.h> 
iinclude  "cherdec.h" 
iinclude  "cherlcl.h" 

int  get_paraffleter8(ou_units,  max_ply,  max_sizes) 

int  •ou_units; 
int  *max_ply; 
int  *max_sizes; 

< 

int  i,  j; 

FILE  •fp  >  NULL; 
int  quantity; 
int  m; 
float  temp; 

if  {<fp  »fopen("INPUT'',  "r«))  «»  NULL)  { 

printfl "Cannot  open  input  file  -  getparm.c"); 
exit(O); 


/*  set  order  and  list  values  to  -1  •/ 
for  <i  »  0;  i  <  MAX_SIZES;  !♦♦)  { 
order. nuiberli]  ■  0; 
order.ch_sizesIi] [0]  ■  0; 

> 

for  (ixO;  i<MAX_LIST;  {♦♦)  { 
listli] .inches  >  (float)  0.0; 

for  <j  X  0;  j  <  MAX_SIZES;  ]♦♦) 
listen  .sizesCj]  x  O; 

> 

/*  Input  Units  •/ 
fscanf(fp,"%d",  ou_units); 
fscanf(fp,"Xd",  max_ply); 
fscsnf(fp,"Xd",  max_sizes); 


58 

59  /*  Input  Order  */ 

60  for  (i  ■  0;  i  <  NAX.SIZES;  < 

61  fscanf(fp,''Xhd",  iorder.nunberCf]); 

62  If  (order. nunberti]  >1)  ( 

63  order. nunberti]  ■  0; 

64  break; 

65  > 

66 

67  fscanfCfp,*^”,  order.ch_tizestil); 

68  > 

69 

70  nuB_of_tizes  ■  I; 

71 

72 

73  /*  Input  List  •/ 

74  i«0; 

75  whiled)  < 

76 

77  fscanf(fp,''Xd*',  (quantity); 

78 

79  if  (quantity  »  -2) 

80  break; 

81 

82  while  (quantity  |a  -1)  { 

83 

84  f8canf(fp.“Xd'',  (m); 

85 

86  if  (m  >«  nun_of_sizes)  i 

87  printfC'ERROR  in  reading  size  variable  *  getpam.c"); 

88  exit(O); 

89  > 

90 

91  listtil.sizestm]  *  quantity; 

92 

93  f8canf(fp,"Xd",  (quantity); 

94  ) 

95 

96  fscanf(fp,"Xf",  distCi] .inches); 

97 

98  •M’i; 

99  ) 

100 

101  fclose(fp); 

102 

103  return(i); 

104  > 


1  /• 
2 
3 
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5  /* . 

6  •  FILE  NAME  :  Globala.h 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  January  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  declare  all  global  variables 

12 

13 

14  . V 

15  Sinclude  <stdio.h> 

16  ^include  "cherdec.h" 

17  dinclude  "cherlcl.h" 

18 

19  ord_var_t  order; 

20 

21  list_t  *list  ■  NULL; 

22 

23  int  r«jn_of_8izes; 

24 

25  int  nun_list; 

26 

27  order_t  temp_order; 

28 

29  section_t  *sections  *  NULL; 

30 

31  int  nun_S9Cvions; 

32 

33  float  total.inches  «  (float)  0.0; 

34 

35  float  prev_inch  «  (float)  9999.0; 

36 

37  int  nim_hold_secs; 

38 

39  8eetion_t  •hold_secs; 

40 

41 


int  ply_height 


1  INCLUDES  ■  cherdec.h  cherlcl.h 

2  LIBNAME  >  cberllb 

3 

4 

5  OBJS  >  \ 

6  Slobals.obj  \ 

7  getpam.obj  \ 

8  findinch.obj  \ 

9  conbfnc.obj  \ 

10  ones.obj  \ 

11  chkinch.obj  \ 

12  cphold.obj  \ 

13  clrtMp.obj  \ 

14  tuot.obj  \ 

15  thrtes.obj  \ 

16  fours. obj  \ 

17  fives. obJ  \ 

18  sixes. obj 

19 

20 

21  .c.obj: 

22  S(CC) 

23  S(LIB) 

24 

25  globals.obj  :  globals.c  S(INCLUDES) 

26 

27  getpann.obj  :  getpami.c  $(  INCLUDES) 

28 

29  findinch.obj  :  findinch.c  S(INCLUDES) 

30 

31  conbine.obj  :  conbine.c  S( INCLUDES) 

32 

33  ones.obj  :  ones.e  S< INCLUDES) 

34 

35  twos. obj  :  twos.c  S(INCLUDES) 

36 

37  threes. obj  :  threes. c  S( INCLUDES) 

38 

39  fours. obj  :  fours. c  S(INCLUDES) 

40 

41  fives. obj  :  fives.c  S( INCLUDES) 

42 

43  sixes. obj  :  sixes. c  S( INCLUDES) 

44 

45  chkinch.obj  :  chkinch.c  S(INCLUDES) 

46 

47  cphold.obj  :  cphold.c  $( INCLUDES) 

48 

49  clrtenp.obj  :  clrteinp.c  S( INCLUDES) 

50 

51  cherry.obj  :  cherry.c  S(INCLUDES) 

52 

53  cherry.exe  :  cherry.obj  S(oeJS) 

54  cl  cherry  /link  cherlib.lib 

55 

56 

57  $(B)\cherry.exe  :  cherry.exe 


$(CP) 


S(l)\chtrdK.h  :  chcrdtc.h 
t(CP> 


1  /• . 

2  --  SHeader::  0:/cops/src/cherry/ones.c  January  1991 

3  . */ 

4 

5  /* . 

6  •  FILE  NAME  :  Ones.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  January  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 
10 

11  ■  PURPOSE-  Groups  units  in  ones  and  find  inches 

12 

13 

14  •  MODIFICATION  HISTORY- 

15 

16  . V 

17  #include  <stdio.h> 

18  #include  <stdlib.h> 

19  #include  <string.h> 

20  iinclude  "cherdec.h" 

21  #include  "cherlcUh" 

22 

23  void  ones(set_s,  teop^secs,  nifn_temp_secs) 

24 

25  order_t  set_s; 

26  section_t  *te)np_secs; 

27  int  *nun_te(np_secs; 

28  ( 

29  float  inches; 

30  int  j,  i,  m; 

31 

32  j  ■  *num_temp_secs; 

33 

34  for  <i«0;  i<num_of_si2es;  ( 

35  if  <set_8(i]  ««  1)  { 

36 

37  for  (111=0;  i»<num_of_siies;  »♦♦) 

38  tefflp_secs[]]  .sizesCm]  =0; 

39 

40  temp_secs[j] .sizes Ci]  =  1; 

41  inches  *  find_inches(te«np_secs[j] .sizes); 

42  if  (inches  1=  (float)  0.0)  { 

43  total_inches  *  total_{nches  ♦  inches; 

44  ♦♦;; 

45  ) 

46  else 

47  tefflp_secsCjI.sizesCi]  >  0; 

48  >  " 

49  ) 

50 

51 

52 

53  ) 

54 


*nij«_temp_8ecs  ■  j 


1 


0:/cop>/src/cherry/sixes.c  January  1991 


FILE  NAHE  :  sixes. c 

PROGRAMMER  :  Terri  A.  Smith 

DATE  WRITTEN  :  January  1991 

ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 
PURPOSE*  Recursive  procedure  to  sroup  units  in  sixes. 


#include  <stdio.h> 

#include  <stdlib.h> 

#include  <string.h> 

#include  "cherdec.b" 

#include  "cherlcl.h” 

void  sixes(set_s,  tefflp_8ecs,  num_tefflp_8ecs) 

order_t  set_s; 

8ection_t  •temp_8ecs; 
int  *nuM_teirp_8ecs; 
i 

float  inches; 
int  j,  i,  k,  I,  m,  n,  o; 
order^t  temp_order; 
float  hold^inchesl; 
float  hold_inches2; 
int  hold_teinp_nura; 

hotd_tetrp_nixii  *  *ntji»_t«np_secs; 
hold_inches2  •  total^inches; 


for  (i=0;  i<niiii_of_8izes;  i*+)  ( 
for  (j»i^1;  j<nijii_of_sizes;  j-*-*-)  ( 
for  (k=j*1;  k<niJB_of_sizes;  k**)  ( 
for  <l»k»1;  l<rKjn_of_sizes;  l*+)  < 
for  (m=l+1;  m<nun_of_sizes;  m*-*-)  ( 
for  (n=m*1;  n<num_of^sizes;  n*^)  { 

for  (0=0;  o<mjii_of_sizes;  o+*) 
teinp_order  Co)  »  0; 

if  ((set_s[i]  «»  1)  U  (set_s[j]  ■»  1)  U 

(set_stk]  >=  1)  U  (set_8[l]  *=  1)  U 

(set_stni]  ■■  1)  U  (8et_s[n)  ■»  1))  ( 

tcmp_order(i]  =1; 
tcinp_order[j]  »  1; 
temp_order Ik]  «  1; 
teinp_orderIl]  *1; 
tcmp_order [m]  >1; 
temp_order Cn]  «  1; 

inches  ■  conibine_inches(tcnp_order); 
if  (inches  I*  (float)  0.0)  { 
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for  <o»0;  o<  nuB_of_8lzes;  o**) 

tenp_secs[*nuii_tenp_secs}  .sizes [o]  *  0; 
total_inches  •  totaMnches  *■  inches; 
teinp_secsI*rKm_teinp_secs].sizes[i]  *  1; 
teinp_sec8C*nisB_tenp_secs].sizes[j]  ■  1; 
teep_secsC*niia_teap_secs].8{zes[k]  ■  1; 
teinp_sec8C*nLia_teffip_secs].sizes[l]  >  1; 
teat)_secs[*nija_teep_secs].size8(n]  ■  1; 
teinp_sec8[*nu8_tenp_8ecs].size8[n]  ■  1; 

♦♦*nuB_teBp_8ecs; 

tenp_order[i]  «  0; 
tenp_order[j]  ■  0; 
teop.orderCU  *  0; 
teop_arderC(}  *  0; 
tcnp_ordertm]  *  0; 
tenp_order[n]  *  0; 

for  <0*0;  o<niiB_of^8ize8;  o*+>  C 

if  ((0  l>  iTu  (o  l«  j)  U  (o  l>  k)  U 

(o  l>  1)  M  (o  l>  ■)  U  (o  !■  n)  U  (8et_8[o]  i))  { 

teinp_order(o]  >1; 

) 

> 

hold_inches1  >  totaMnches; 
ones(tcinp_order,  tefnp_secs,  nun_te8f>_secs); 
check_inches(teinp_secs,  niJB_te«rp_secs); 

for  (o»0;  o<nifii_oMizes;  o^)  { 

if  ((0  l>  ifu'te  l>  j)  U  (o  l«  k)  U 

(0  !■  1)  U  (o  l«n)  M  (set_8to]  *«’1))  < 

•  ••nifn_tenp_secs; 

} 

> 


total_inches  ■  ho(d_inches1; 
tuos(teinp_arder,  tenp_secs,  ntm_tenp_secs); 

total_inches  «  hold_inches1; 
threes(te(np_order,  tenp^secs,  nun_tenp_secs); 

total_inches  «  hold_inches1; 
fours(tenp_order,  tenp_secs,  niia_tenp_secs); 

total.inches  *  hold_{nches1; 
fives(tenp_order,  tenp_secs,  nija_temp_secs); 

total_inches  >  hold_inches1; 
sixes(teap_order,  teop_secs,  nua_teap_secs); 

*nua_tamp_8ecs  ■  hold_tenp_nua; 
total.inches  >  hold_{nches2; 

> 


> 
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23  order_t  8et_*; 

24  section_t  *tefflp_secs; 

25  int  *rMjii_tefflp_secs; 

26  < 

27  float  inches; 

28  int  j,  i,  k,  1; 

29  order_t  teiip_order; 

30  float  hold_inches1; 

31  float  hold_inches2; 

32  int  hold_te«np_num; 

33 


34  hold_teinp_nuii  ■  *num_te(np_secs; 

35  hold_inches2  «  total_inches; 

36  ~ 

37  for  (i»0;  i<niin_of_8izes;  i++)  € 

38  for  (j«i*1;  j<nun_of_aiies;  { 

39  for  <k»j>1;  k<nuii_of_8izes;  k**)  i 

40 


41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


for  (1*0;  l<nun_of_sizes;  1++) 
tenp_orderCl]  *  0; 

if  ((set_sCi]  «*  1}  (set_s[j]  >*  1)  U  (set_s[k]  **  1})  < 
tefflp_orderCi]  ■  1; 
teinp_order[j]  *  1; 
tanp_order(k]  *1; 

inches  «  coRtiine_inches(teinp_order); 
if  (inches  I*  (float)  0.0)  i 
for  (1*0;  l<  nun_of_sizes;  I**) 

tenp_sec8(*nu«_te(np_secs] .sizes [11  *  0; 
total.inches  ■  total_{nches  *  inches; 
tamp_secsC*niJs_teinp_secs]  .sizes [f]  *1; 
tenp_secs[*nua_tsnp_secs].s{zes[j]  *1; 
teMp_secsC*nuB_teisp_secs].s{zes[k]  *1; 
♦♦•nuB_tenp_secs; 
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tMnp_order[i]  ■  0; 
tMp_ord«rCj]  ■  0; 
ttnp_order[k]  ■  0; 

for  (l«0;  l<rKiii_of_*lies;  1++)  < 

If  <(l  I-  iTu'd  l>  j)  U  (I  !■  k)  U  —  D)  < 

tetnp_order(l)  ■  1; 

> 

hold^lnchesl  «  total.inchM; 
ones(tenp_order,  tafflp_s*cs,  niji_t«qp_*ac8); 
check_<nches(tenp_secs,  nua_tMp_«ecs); 

for  (l«0;  l<nun_of_siz«s;  l'*^)  i 

if  (d  I-  i)~U~d  l>  J)  U  d  l>  k)  U  (Mt.sdl  n  D)  i 
--*nti*_t*np_«€e8; 

) 


total_inches  *  hold_inchas1; 
tMOS(tainp_order,  temp^aecs,  nijn_taip_tecs); 


total_{nches  «  hold_inches1; 

for  <l«0;  l<nijii_of_ai2es;  { 
if  (d  l>  i)  ti  d  I*  j)  U  d  l>  k)  U  (aat.tdl  »  1»  { 
-  -*nii»_temp_8ec8; 

> 

total.inchas  ■  hold.inchesl; 
threes(teirp_order,  temp_8acs,  nija_teiip_8ecs); 

*nun^teinp_8ecs  •  hold_te«np_ntjn; 
total_inches  ■  hold_inches2; 

> 

> 

> 


> 


1  /* 
2 
3 
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FILE  NAME  :  Twoa.c 

PROGRAMMER  :  Terri  A.  Smith 

DATE  WRITTEN  :  January  1991 

ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 
PURPOSE-  Recuraivc  procedure  to  group  mita  in  twos 


. V 

iinclude  <stdio.h> 
finclude  <8tdlib.h> 

#include  <string.h> 
finclude  "cherdec.h" 
iinclude  "cherlcl.h" 

void  twos(iet_t,  teinp_secs,  nun_tefflp_aecs} 

order_t  8et_s; 
section_t  *temp_secs; 
int  *nkjn_tefflp_tecs; 

< 

float  inches; 
int  j,  i,  k,  m; 
order_t  tefflp_order; 
float  hold_inches1; 
float  hold_inches2; 
int  hold_teinp_nijn; 

hold_temp_n(jn  ■  *nun_temp_secs; 
hold_inche82  *  total^inches; 


for  (i»0;  i<niin_of_siie8;  i'*-»)  < 
for  {j»i-»1;  j<ni*i_of_siies;  ]♦♦)  ( 

for  (k»0;  k<num_of_sizes;  k*^) 
teinp_order  [k]  ■  0; 

if  ((set_s(i]  »«  1)  U  (set_s[j]  ■»  1)>  { 
temp_order(i]  ■  1; 
temp_ordertj]  *1; 

inches  ■  coi«bine_inche8{teffip_order); 
if  (inches  l«  (float)  0.0)  < 
forlemO;  m<ntiB_of_sizes; 

temp_secsC*nus_temp_sec8j  .sizesrnO  »  0; 
total_inches  ■  total_inches  ♦  inches; 
temp_seesC*nue_temp_seesJ.siie8ti)  ■  1; 
temp_secs[*nim_temp_8ecs)  .sizes Cj]  >  1; 
♦♦•nije_temp_8ecs; 

/•  printf("  WITH  TOTAL  «  M\n",  total_inches);  •/ 

> 

teap.orderCi]  •  0; 
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tefflp_order [ j]  ■  0; 

for  (k»0;  k<r»jn_of_ti2e»;  k>+)  { 

if  ({k  I-  iTtt'ck  I*  j)  U  {•et_t[kl  »«  1))  < 
tcmp_order [k]  >1; 

> 

> 

hold_inches1  ■  totaMnches; 
ones(tcnp_order,  teinp_secs.  nij»_tenp_Bect); 
check_{nches(tetnp_secs,  niin_tMp_secs); 

for  <k«0;  k<nij«_of_tizes;  k*4>  t 

If  ((k  l>  {)~U~(k  l«  J)  U  (soOCU  >■  1)}  < 
-  -*r«jii_tenp_tec*; 

> 


totaMnches  >  hold_inches1; 
tMos(tenp_order,  tenp.secs,  nijn_teinp_secs); 
*niM_teiip_8ecs  »  hold_tefflp_nijn; 
total_1nches  >  hold_inches2; 

> 

> 


> 


Appendix  F  Improvement  Algorithm  Source  Code 
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3  . * 

4 

5  /* . 

6  •  FILE  NAME  :  caae.ai.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  February  1991 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  determine  savings  if  sixes  in  two  sections  are 

12  the  same 

13 

14 

15  -  — . V 

16  #inc(ude  <stdio.h> 

17  dinclude  <stdlib.h> 

18  #include  "impdec.h" 

19  ^include  "implcl.h" 

20 

21  float  case_ai(sect1,  portion,  cut_cost) 

22  ~ 

23  section_t  *sect1; 

24  section_t  *portion; 

25  int  cut_cost; 

26 

27  < 

28  int  {; 

29  int  e  *  0; 

30  float  savings; 

31 

32  for  <i«0;  i<  nuri_of_sizes;  i**)  < 

33  e  ■  e  >  (order. perimeter Ci]  *  sect1->6izes(i] ); 

34  e  >  e  (order.perimeterCi]  *  portion->8izesti] }; 

35  > 

36 

37  sevings  *  (float)  cut_cost  *  e; 

38 

39 

40 

41  > 

42 


return(savings) 


27  < 

28  float  savings  «  (float)  0.0; 

29  float  sect1_inch; 

30  float  sact2_inch; 

31  float  sect3_inch; 

32  float  aect4_inch; 

33 

34  sect1_inch  «  find_inche8(in_section(fJ .sizes); 

35  seet2_inch  ■  find_inches<in_sectiontlI .sizes); 

36  sect3_inch  >  f ind_inches(sect3.sizes}; 

37  sect4_inch  •  find_inches(sect4. sizes); 

38  "  " 

39  savings  ■  unit_cost  •  in_8ection(iJ .ply_height  *  (sect1_inch  +  sect2_inch 

40  sect3_inch  -  sect4_inch); 


41 

42  return(savings); 

43 


44  } 

45 


1  /* . 

2  SHeader::  D:/copt/«rc/iiqprov/caatply.c  February  1990 

3  . V 


4 

5  /* . 

6  •  FILE  NAME  :  Coffifaply-c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  April  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  This  procedure  coai>ines  sections  which  have  the  same  sizes 

12  -  and  the  ply  heighth  of  the  new  section  does  not  excede  the  iiiax_ply 

13 

14 

15  . V 

16  #include  <stdio.h> 

17  #include  <malloc.h> 

18  Ninclude  <stdlib.h> 

19  #include  <inefliory.h> 

20  #include  "impdec.h" 

21  Ninclude  "implcl.h" 

22 

23  void  conbine_ply(max_ply) 

24  int  maxjily; 

25 

26  < 

27 

28  int  ij.l.k; 

29  char  match; 

30 

31 

32  for  <i*0;  i<nijn_in_sec;  i+>)  ( 

33  for  <i»i*1;  }<nun_in_sec;  }**}  C 

34  match  >  1; 

35  for  (k*0;  k<nij«_of^8ize8;  k++)  < 

36  if  (in_8ection(i] .8ize8Ck}  I*  in_section[j] .8ize8(k] ) 

37  match  «  0; 

38  ) 

39  if  ((match)  && 

40  ((in_8ectionCi] .ply_height  in_8ection[jJ .ply_height)  max_ply)}  { 

41  in_8ectionCiJ .ply_height  «  in_8ection(i] .ply_hei9ht  +  in_8eetion[j] .ply_height 

42  for  (l»j;  l<nun_in_8ec-1;  I'l-*’) 

43  memcpy(&in_8ectionClJ,  tin_8ection[l«1] ,  8iieof(8ection_t)); 

44  -j; 

45  --n(jn_in_8ec; 

46  >  "  " 

47  ) 

48  > 

49 

50  num_temp_8ec  ■  num_in_8ec; 

51 

52  return; 

53  > 
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--  $Header 


*/ 


FILE  NAME  :  Conbaize.c 

PROGRAMMER  :  Terri  A.  Smith 

DATE  WRITTEN  :  April  1990 

ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

PURPOSE-  This  procedure  caa6ines  all  sections  in  which  the 
the  nutber  of  sizes  in  the  new  section  docs  not  axcede 
the  msx^sizes  alloued  per  section 


#include  <stdio.h> 
finclude  <«slloc.h> 
#include  <stdlib.h> 
finclude  <memory.h> 
finclude  "impdec.h* 
finclude  "implcl.h" 


void  coiibine_sizes(max_sizes) 
int  max_size8; 


int  num_unit8; 
int  i,  j,  1; 

for  <l»0;  i<nif«_in_8ec;  € 
for  <j«l*1;  j<fxjn_in_$ec;  ]♦♦)  ( 
num_units  ■  0; 

for  <l»0;  l<num_of_8ize8;  l-»+> 

KM.units  •  nuii_units  *  in_section[i] .sizestll  * 
in_section(j}.size8[l); 

if  ((nun_units  <•  m8x_size8)  M 

(in.sectionCi] .ply_height  «■  {n_section[j] .ply_height})  { 
for  (l«0;  l<nuii_of_sizes;  I**) 

in_section[i] .sizeslU  *  in_section[i]  .sizes [1] 
in_section[j]  .sizestl] ; 

for  (l»j;  l<nifn_in_8ec-1;  l+*) 

aiemcpy(tin_8ectionCl],  8in_section[l«’1] ,  sizeof(section_t}); 

"j; 

"nua_in_sec; 

> 

> 

> 

nus_tamp_sec  ■  nuB_in_sec; 


return; 


1  /* . 

2  ••  SHtadcr::  Di/copt/src/iiprov/caRpatMp.c  February  1991 

3  . V 

4 

5  /• . - . 

6  '■  FILE  NAHE  :  conpswap.c 

7  •  PROGRANHER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  February  1991 

9  •  ADDRESS  :  GTRl/CSITL  Atlanta  GA  3Q332  (404)  894-8952 

10 

11  -  PURPOSE-  To  determine  which  method  to  ue  to  compute 

12  the  aavings 

13 

14  . V 

15  ^include  <stdio.h> 


16  «include  <atdlib.h> 

17  #include  "impdec.h" 

18  #include  "implcl.h" 

19 

20  float  coiRpute_awap_eavings(i,  I,  cut_coat,  unit_cost,  max_Bizes} 

21 

22  int  i; 

23  int  1; 

24  int  cut_co8t; 

25  int  unit_cost; 

26  int  max_sizes; 

27 

28  ( 

29  float  savii^s; 

30 

31  if  (in^eectiontiJ .ply^height  ■»  in_section[l].ply_height)  ( 

32  aavings  «  case_aii(i,  I,  unit_cost); 

33  tenp.save. types  3; 

34  tefflp_save.candj>ly_height  •  in.8ection[i].ply_height; 

35  tenp.8ave.org_ply_heioht  ■  in_8ectionIiJ.ply_height; 

36  > 

37 

38  else  ( 

39  temp_save.cand_ply_height  s  in_section[l] .ply_height; 

40  temp_save.org_ply_height  ■  in_8ectionIi] .ply_height; 

41  savings  «  case_aii(i,  I,  unit_co8t); 

42  temp_save. types 

43  > 

44 

45  temp_save. savings  s  savings; 

46 

47 

48 

49  > 

50 


raturnC savings) 


1  /* . 

2  **  SHeader::  0:/cops/src/<mprov/coapute.c  February  1991 

S  . V 

4 

5  /• . 

6  ■  FILE  NAME  :  conpute.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  February  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  determine  which  method  to  ue  to  coepute 

12  -  the  savings 

13 

14  . */ 

15  #include  <stdio.h> 

16  #include  <stdlib.h> 

17  #include  "impdec.h" 

18  #include  ■inplcl.h'' 

19 

20  float  cofflpute_savings(i,  I,  cut_cost,  wit_cost,  max_sizes) 

21 

22  int  i; 

23  int  1; 

24  int  cut.cost; 

25  int  ieiit_cost; 

26  int  max_sizes; 

27 

28  C 

29  int  j; 

30  float  savings  •  (float)  0.0; 

31  float  save2; 

32  char  match  «  1; 

33  int  nun_units  «  0; 

34 

35  for  (j*0;  j<nuii_of_sizes;  ]♦♦)  { 

36  if  (portion. sizestj]  in_section(l] .sizes [j] ) 

37  match  *  0; 

38  nun_units  *  nun_un1ts  *  sect4.sizes[j]; 

39  >  " 

40 

41 

42  if  (match)  {  /*  sizes  in  sections  are  the  same  */ 

43  if  (nun_units  <>>  max_sizes)  { 

44  save2  *  case_aii(i,  I,  unit_cost); 

45 

46  if  (save2  >  savings)  < 

47  temp_save.type«  2; 

48  savings  ■  save2; 

49  if  (in_section(i] .ply_height  l»  in_section[l} .ply_height) 

50  temp_ssve.cand_ply_height  ■  in_section[l] .ply_height; 

51  else  t^_save.cand_ply_height  ■  in_sectionIi]  .ply_height; 

52  tefflp_save.org_ply_height  ■  in_section[i}.ply_height; 

53  >  ” 

54  > 

55  > 

56 

57  else  if  ((in_section[i] .ply_height  ■>  in_section[l] .ply_height)  U  (rHjn_units  <«  max_sizes))  < 


58  savings  ■  cast_aii(1,  I,  unit.cost); 

59  tenp_savc.type>  3; 

60  teas>_ssvs.cand_ply_height  >  {n_ssction[i].ply_height; 

61  t8inp_ssvc.org_ply_height  >  in_ssction[{].ply_hcight; 

62  >  ~ 

63 

64  else  if  (nuB_units  <■  ieax_sizes)  i. 

65  if  (in_section(i] .ply_height  l>  in_section[l] .ply_height} 

66  te8p_ssve.cand_ply_height  «  in^sectionll] .ply_height; 

67  else  tetip_save.cand_ply_height  «  in_section[{]  .ply_heigtit; 

68  temp_save.org_ply_height  >  in_sectionti] .ply_height; 

69 

70  savings  *  case_aii(i,  I,  unit_cost); 

71  temp_ssve.type»  4; 

72  > 

73 

74  tenp_ssve. savings  ■  savings; 

75 

76  retum(  savings); 

77 

78  > 

79 


6  -  FILE  NAME  :  Findinch.c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  February  1991 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  detarmina  the  nuibar  of  inchea  in  a  taction  based 

12  -  on  the  input  list  Is 

13 

14 

15  . V 

16  #include  <stdio.h> 

17  fincluda  <stdlib.h> 

18  finclude  <strino.h> 

19  finclude  "impdec.h* 

20  #includa  "implcl.h" 

21 

22  float  find_inches(sizas) 

23 

24  order_t  sizes; 

25 

26  < 

27  int  i,  j; 

28  char  match  *  0; 

29  char  empty  =  0; 

30 

31  i  -  0; 

32  Mhile  ((Imatch)  U  (i  <  num.list))  i 

33  empty  «  1; 

34  match  >1; 

35  for  <j»0;  j<niiit_of_sizes;  < 

36  if  (sizesCjl  listCi] .sizeslj]) 

37  match  «  0; 

38  if  (sizes(j]  )>  0) 

39  empty  »  0; 

40  > 

41  ♦♦i; 

42  } 

43 

44  if  (empty) 

45  return((f loat)  0.0); 

46 

47  if  (match) 

48  return(list(--i] .inches); 

49  else  < 

50  printf("  COULONT  FIND  "); 

51  for  (i*0;  i<niiii_of_sizes;  !♦♦)  < 

52  if  (sizeslil  >  0) 

53  printf("Xd  Xs  ",  sizesCi],  order. ch_sizes[i] ); 

54  > 

55  printf("\n"); 

56  exit(O); 

57  > 


1  /• . 

2  ••  SHeader::  Di/cops/src/inprov/getpani.c  February  1990 

3  . 

4 

5  /* . 

6  -  FILE  NAME  :  Gatpana.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  ■  DATE  WRITTEN  :  February  1990 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 

10 

11  *  PURPOSE-  To  read  the  *iiput  parameters  from  a  file 

12 

13 

14  . . 

15  #includa  <stdio.h> 

16  #includa  <8tdlib.h> 

17  iincluda  <8tring.h> 

18  #include  <maUoc.h> 

19  #includa  "impdac.h" 

20  #include  "implcUh" 

21 

22  int  get_parametars(ou_units,  max_ply,  max_sizes, 

23  cut_cost,  unit_cost,  old_ou_units) 

24 


25 

int 

*ou_units; 

26 

int 

*m8X_ply; 

27 

int 

*inax_sizes; 

28 

int 

*cut_cost; 

29 

int 

*unit_cost; 

30 

int 

•old_ou_uni  ts, 

31 

32 

< 

33 

int 

i.  j; 

34 

FILE 

•fp  -  NULL; 

35 

int 

quantity; 

36 

int 

m; 

37 

38  if  (<fp  *fopen<"INPUT",  "r"))  »»  NULL)  ( 

39  printf< "Cannot  open  input  file  -  getparm.c"); 

40  exit(O); 

41  > 

42 

43  /•  sat  order  and  list  values  to  -1  •/ 

44  for  (i  «  0;  i  <  MAX_SIZES;  i-M-)  € 

45  ordar.nunbarCi]  *  0; 

46  order. ch_8i zas (i ] [0]  «  0; 

47  order. perimeterCi]  «  0; 

48  > 

49 

50  for  <i»0;  i'diAX.LIST;  i**)  < 

51  listCi] .inches  >  (float)  0.0; 

52 

53  for  (j  ■  0;  i  <  MAX_SIZES;  )>♦) 

54  listli] .sizasCj]  «  0; 

55 

56 

57 


) 


58  fscanfCfPind*,  ou_unft>}; 

59  f«canf(fp,"Xd",  ■•x_ply); 

60  fscanf(fp,"Xd'',  Mx_>izcs); 

61  fscanf(fp,'0Cd".  cut_cost); 

62  ftcanldp,"**!",  »jnit_co*t); 

63 

64 

65  /*  Input  Order  */ 

66  for  (I  ■  0;  I  <  MAX.SIZES;  1+*)  < 

67  fecanf(fp,'*Xd",  8order.nif«ber[{]); 

68  if  (order.nunberCU  *•  -1)  { 

69  order. ninberti]  »  0; 

70  breek; 

71  > 

72 

73  fscanf(fp,''Xd",  iorder.perimetertil); 

74  fscanf(fp,'*X8'',  order. ch_tizes[i]); 

75  > 

76 

77  w«_of_«ize«  •  i; 

78 

79  f8canf<fp,"*d",  8nuii_in_8ec); 

80 

81  if  <<in_8eetion  «  (8ection_t  *)pieUoc(nii8_in_8ec  *  8izeof(8ection_t>)>  *»  NULL)  C 

82  printf("ALLOCATION  ERROR  -  SECTIONS  getpana.cVn**}; 

83  exit(O); 

84  > 

85 

86  for  (i*0;  i<nu»_in_8ec;  I**)  { 

87  ln_8ection?'l .ply_height  ■  0; 

88  for  (m^O;  •<ni«_of_8ize8;  •*«•)  C 

89  in.sectionCil.aizestiH]  >  0; 

90  >  * 

91  > 

92 

93  i  >  0; 

94  /*  Input  Sections  •/ 

95  uhile(i  <  nu«i_in_8ec)  < 

96 

97  f8canf<fp,'‘Xd",  Iquantity); 

98 

99  while  (quantity  l«  *1)  < 

100 

101  f8canf(fp."Xd",  ba); 

102 

103  if  (■  >■  nui_of_8ize8)  ( 

104  printf("ERROR  in  reading  size  variable  -  getpana.c”); 

105  exit(O); 

106  > 

107 

108  in^sectionCiJ.sizesM  ■  quantity; 

109 

110  f8canf(fp,"Xd",  iquantity); 

111  > 

112  fseanfffp,  "Xd",  iin_section(il.ply_height); 

113 

114  ♦♦i; 


115  > 

116 

117  f«c«nf(fp,"Xd",  old_ou_units); 

118 

119 

120  /*  Ir^t  List  */ 

121  {■0; 

122  Hhitsd)  < 

123 

124  ftcanf(fp,"Xd",  kquantity); 

125 

126  if  (quantity  ■>  *2) 

127  braak; 

128 

129  uhila  (quantity  -1)  ( 

130 

131  ftcanf(fp,nd".  ta); 

132 

133  if  (■  >■  nui_of_sizat)  < 

134  printf ("ERROR  in  raading  siza  variabla  ■  gatpans.c"); 

135  axit(O); 

136  > 

137 

138  listCi] .sizastn]  "quantity; 

139 

140  fscanf(fp,*Xd*,  iquantity); 

141  > 

142 

143  fscanf(fp,"Xf",  tlistCi] .inches); 

144 

145  ♦♦i; 

146  > 

147 

148  fclose(fp); 

149 

150  return(i); 

151  ) 

152 


D:/cops/src/improv/globals.h  February  1991 


FILE  NAME  :  Globals.h 

PROGRAMMER  :  Terri  A.  Smith 

DATE  URITTEN  :  February  1991 

ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  B94-89S2 

PURPOSE-  To  declare  all  global  variables 


1  /* 

2  -*  SHeader::  D:/cops/src/iinprov/iinpdec.h  February  1990 

3  . 

4 

5  /* . 

6  -  FILE  NAME  :  Inpdec.h 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  February  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  CA  30332  (404)  894-8952 

10 

11  •  PURPOSE-  To  define  alt  atructurea  and  procedurea 

12 

13 

14  . V 

15  fifndef  INPDEC.H 

16  Pdefine  INPDEC.H 

17 

18  Mefine  NAX.LIST  1000 

19  Mefine  MAX.SIZES  25 

20  Mefine  MAx'sAVINGS  400 

21 
22 

23  typedef  int  order.t (MAX.SIZES]; 

24 

25  typedef  char  aizea.t (MAX.SIZES] [10]; 

26 

27  typedef  struct  ( 

28  order.t  nunfcer; 

29  aizea.t  ch.sizes; 

30  int  perimeter (MAX.SIZES]; 

31  )  ord.var.t; 

32  '  ” 

33  typedef  struct  i 

34  order.t  sizes; 

35  float  inches; 

36  )  list.t; 

37 

38  typedef  struct  < 

39  order.t  sizes; 

40  int  ply_height; 

41  char  merged; 

42  >  aection.t; 

43 

44  typedef  struct  C 

45  int  secti; 

46  int  sect2; 

47  int  orgjjly.height; 

48  int  cand.ply.height; 

49  float  savings; 

50  int  type; 

51  order.t  org; 

52  order.t  cand; 

53  order.t  in.secti; 

54  order.t  in.sect2; 

55  >  savings.t; 

56 

57 


58  <nt  g«t_paraiiietcrs({nt  *wits,  Int  *MX_ply,  Int  *iiax_s{zts, 

59  int  *cut_cott,  int  *unit_eo«t,  int*  old_ou_unitt); 

60 

61  float  find_inchea(order_t  sizes); 

62 

63  float  case_aii(int  i,  int  },  int  uiit_cost); 

64  ” 

65  float  compute.savingsCint  i,  int  J,  int  cut_cost,  int  uiit.cost,  int  ■iax_sizes); 

66  ” 

67  float  conpute_swap_savings(int  i.  int  ],  int  cut_coBt,  int  unit_C08t,  int  aiax_8izes); 

68 

69  void  cai«bine_ply(int  MX_ply)r 

70 

71  void  coinbine_sizes(int  aiax.aizes); 

72 

73  void  transfer_forHard(int  i,  int  i,  int  1. 

74  int  cut_co8t.  int  wtit_cost,  int  ■ax_sizes,  int  ■iax_ply); 

75 

76  void  transfer_backwards(int  i,  int  j,  int  I, 

77  int  cut_cost,  int  unit_cost,  int  ■ax_8izes,  int  laaxjsly}; 

78 

79  void  suap_forward(int  i,  int  j,  int  I, 

80  int  cut_eost,  int  unit_cost,  int  Max_sizes,  int  max _ply>; 

81 

82  void  8uap_backwards(int  i,  int  j,  int  I, 

83  int  cut_cost,  int  unit_cost,  int  MX_sizes,  int  nax_ply); 

84 

85  dendif 


2  -•  SHeader::  D:/cops/src/iinprov/Inpdec.h  February  1990 

3  . V 

4 

5  /* . 

6  -  FILE  NAME  :  Implcl.h 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  February  1990 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  -  PURPOSE-  To  define  all  global  variables 

12 

13 

14  . V 

15  #ifndef  IMPLCL.H 

16  idefine  IMPLCL  H 


17 

18 

19  extern- ord_var_t  order; 

20  extern  list.t  *li8t; 

21  extern  int  nun.list; 

22  extern  int  nun.of.sizes; 

23  extern  aection.t  *in_section; 

24  extern  int  num.in.sec; 

25  extern  int  nun_temp_sec; 

26  extern  section.t  sect3; 

27  extern  section.t  sectA; 

28  extern  section.t  portion; 

29  extern  savings.t  temp.save; 

30  extern  savings.t  save; 

31 

32 

33  Ffendif 


6  •  FILE  NAME  :  Inprove.c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  *  DATE  URITTEN  :  February  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

11  *  PURPOSE-  The  main  program  which  controls  flow  of  execution 

12 

13 

14  . V 

15  #include  <stdio.h> 

16  #include  <malloc.h> 

17  Vinclude  <meinorv.h> 

18  Dinclude  <stdlib.h> 

19  iinclude  <8tring.h> 

20  #include  <time.h> 

21  Dinclude  "impdec.b" 

22  «include  "implcl.h" 

23 

24  Ndefine  clockO  time(NULL) 

25 

26  mainCargv,  argc) 

27  int  argv; 

28  char  ^argcCl; 

29 

30  € 

31  /*  Input  Variables  */ 

32  int  ou_units;  /*  #  of  units  over/under  allowed  */ 

33  int  old_ou_units;  /*  #  of  units  over/under  allowed  */ 

34  int  rnxjily;  /*  max  ply  height  allowed  */ 

35  int  max.sizes;  /*  #  of  sizes  allowed  /  section  */ 


36 

int  init_ply; 

/•  initial  ply  height 

*/ 

37 

int  cut_cost; 

/*  cutting  cost 

*/ 

38 

int  unit_cost; 

/*  mit  cost 

*/ 

39 

40 

/*  (Xjtput  Variables  */ 

41 

float  tot_length; 

the  total  amt  of  fabric  needed*/ 

42 

float  totjaarker; 

/*  total  fabric  between  markers  */ 

43 

int  unit_dev; 

/*  deviation  of  units  to  cut  from  order  */ 

44 

int  unit_count; 

f*  units  in  all  sections 

*/ 

45 

int  order_count; 

/•  #  of  leiits  in  order 

*/ 

46 

char  unit_stringC10]; 

/*  OVER  or  UNDER 

V 

47 

48 

int  i,J,  k,  1,  r,  s,m,n; 

f*  counters 

•/ 

49 

int  total_order  ■  0; 

/•  total  #  in  order 

*/ 

50 

float  inches; 

/*  inches  in  sections  *  ply 

*/ 

51 

float  marker; 

/*  inches  between  markers 

•/ 

52 

FILE  "fp; 

/*  file  pointer  for  output 

*/ 

53 

order_t  teaf)_order; 

/*  teap  order 

V 

54 

elock_t  8tart_time; 

/*  used  for  timing  alg 

V 

55 

clock_t  end_time; 

t*  used  for  timing  alg 

*/ 

56 

double  total.time; 

f*  total  execution  time 

*/ 

57 

char  mergers jwssible  ■  1; 

/*  while  loop  boolean 

V 

section_t  teiip_sec; 


/•  temporary  section 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 


•/ 


start_tiine  *  clockO; 

if  <(fp  »  fopen("OUTPUT",  "w“))  ■«  NULL)  < 

printfCCANNOT  OPEN  OUTPUT  FILE  savings.cXn"); 
exit(O); 

> 

if  {{list  ■  {list_t  •)inalloc{NAX_LIST  *  sizeof{list_t)))  ■■  NULL)  < 
printf{"ALLOCAT10N  ERROR  FOR  LIST  savings. cVn"); 

exit{0); 

> 

/• 

Get  parameters  and  print  out  first  solution 

*/ 


nkja_list  ■  getj)araffleters{tou_units,  lffiax_ply,  >inax_sizes, 

8cut_cost,  8unit_cost,  8old_ou_units); 


tot_length  »  {float)  0.0; 
tot_marker  >  {float)  0.0; 

fprintf{fp,  "MAX  PLY  >  Xd  MAX  #  OF  UNITS  PER  SECTION  »  Xd\n«,  max_ply,  inax_sizes); 
fprintf{fp,  "UNIT  COST  "  Xd  cents  CUT  COST  *  Xd  centsVn",  unit_cost,  cut_cost); 
fprintf{fp,  "ORDERXn"); 
for  {i»0;  i<niiii_of_8izes;  {♦♦)  C 

fprintf{fp,  "Xd  SIZE  Xs\n".  order. nutberti] ,  order.ch_sizesti] ); 

) 

fprintf{Fp,  =>\n  FIRST  SOLUTION  \n“); 
for  {i»0;  i<ni*_in_sec;  !♦*)  { 

fprintf{fp,  "SECTION  Xd  HAS  PLY  «  Xd\n",  i,  in.sectionli] .ply_height); 
for  {j«0;  j<ncin_of_sizes;  ]♦♦)  { 
if  {in^sectionCi]  .sizesCj]  >  0)  < 

fprintf{fp,  "  AND  Xd  SIZE  Xs\n",  in_section[i] .sizeslj] ,  order. eh_si zes [ j] ); 
) 

> 

marker  >  find_inches(in_section[i] .sizes); 
inches  ■  marker  •  in_sectionriJ.ply_height; 

fprintf(fp,  "MARKER  LENGTH  «  X7.2f  TOTAL  LENGTH  >  X7.2f\n\n",  marker,  inches); 
tot_length  »  tot_length  inches; 
tot_marker  «  tot_marker  ♦  marker; 

>  " 

fprintf{fp,  "TOTAL  MARKER  «  X7.2f  TOTAL  LENGTH  »  X7.2f\n\n",  tot_marker,  tot_length); 


/• 

Initialize  savings  structures 

*/ 

for  {i*0;  i<nun_of_sizes;  i**)  { 
save.orgCi]  "  0; 
save.candCi]  >  0; 
tefflp_save.org Ci]  >  0; 
temp.save.candCi]  •  0; 

) 


/* 


combine  any  sections  with  a  combination  of  sizes  <>  ■)ax_sizes 
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137 
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142 

143 
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•/ 


conbi ne_s{zes(max_s{ zes) ; 

/* 

Main  Loop  of  program  • 

The  loop  begins  by  trying  to  place  one  sizes  form  one  section 
into  another  section.  Once  all  possible  transferred  are  tested, 
then  the  program  tries  swapping  two  sizes  from  two  different 
sections.  The  loop  begins  with  the  first  section.  The  best 
transfer  or  swap  from  this  section  is  made  and  the  next  section 
goes  through  the  same  tests  etc.  Once  all  sections  have  been 
exhausted  then  the  saaie  is  repeated  but  backwards  (starting 
with  the  last  section.  This  whole  process  is  repeated  twice. 

*/ 

mergers_pos8ible  >  2; 
while  (mergers_possible  >  0)  < 

/*  combine  any  sections  with  same  sizes  by  putting  on 
top  of  each  other  if  it  doesn't  violate  max  ply  height 
V 


combine_ply(inax_ply); 

/• 

Attempt  to  reassign  one  portion  from  original  section 
to  a  new  section  and  calculate  savings.  Merge  only 
the  one  with  the  greatest  savings 

*/ 

for  <i=0;  i<num_in_sec;  i+*)  ( 
for  <j*0;  j<nijn_,of_sizes;  ]♦♦>  f 
save.seetl  ■  -1; 
save.sect2  >  *1; 
save. type  *  0; 

8ave.orgj)ly_height  «  0; 
save.cand_ply_height  =  0; 
save. savings  *  (float)  0.0; 

for  (in=0;  m<niiii_of_8izes;  m*-*-) 
portion. sizesCnO  s  O; 
portion. p(y_height  =  0; 

for  (l»i+1;  l<rHin_in_sec;  l*+)  ( 

transfer_forward(i,  j,  I,  cut_cost,  unit_cost,  Riax_sizes,  max_ply) 
8wap_f orward( i ,  j,  I,  cut_cost,  unit_cost,  max_sizes,  aHx_ply); 


> 


/* 

Place  portion  into  section.  If  the  two  sections  have 
different  ply  heights  then  the  smallest  ply  height  is 
given  to  both  sections  and  the  section  with  the  larger 
ply  height  is  added  to  the  end  of  the  section  list  with 
a  ply  height  equal  to  larger  ply  minus  the  smaller  ply 

*/ 
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r  *  savc.secti; 

•  s  save.sect2; 

if  (save. savings  I*  (float)  0.0)  C 

printf(«REPLACING  PORTION  Xd  Xd\n*,  r,  s); 

in_section[r] .ply_height  «  save.org_ply_height; 
in_section[s] .ply_height  >  save.cand_ply_height; 

if  (save.orgjaly_height  <  save.cand_ply_height)  < 
in_sectionts].ply_height  ■  savc.org_ply_height; 
tenp_sec.plyjieight  >  save.cand_ply_height  - 
save . or g_p t y_he { gh t ; 

for(RpO;  RKnuB_of_sizes;  ■♦♦) 

tca|>_sec.aizesCaG  *  save.in_sect2[iii]; 

if  ((in_section  >  real loc(in_aect ion,  ((nua_tcap_sec  *  1) 

*  sTzeof(section_t))))  «■  MULL)  t 
printf("REALLO(UTION  ERROR  FOR  INSECTION  inprove2.c"); 
cxit(O); 

> 

RKncpy(&{n_sectionCnun_tefflp_sec*^],  (tefflp_sec,  sizeof( sect ion  t)) 

else  if  (save.org_ply_he{ght  >  save.cand_ply_height)  C 
in_section[r].ply_height  >  save.cand_ply_height; 
teap_sec.ply_height  «  8ave.org_ply_height  - 
save.cand_ply_hei ght; 

for(m>0;  m<nuR_of,sizes;  ai»+) 

teiiip_sec.sizestaO  •  save.in.sectltnO; 

if  ((in.section  ■  reslloc(in_section,  ((num_teap_sec  *1) 

*  sizeof(section_t))))  «  NULL)  { 
printf("REALLOCATION  ERROR  FOR  INSECTION  inprove2.c*‘); 
exit(O); 

) 

■ienicpy(tin_sectionCnija_teiTp_sec4~»],  (te)np_sec,  s{zeof(section_t)) 

> 

for(iii«0;  tB<nuii_of_s{zes;  ie»+)  { 

in_section(r].sizes{m]  «  save.org [ml; 
in_section[8]  .sizes (M]  ■  save.candlnO ; 

> 

> 

>  /•  for  j  •/ 

>  /•  for  i  •/ 


Perfena  the  same  sequence  of  events  to  transfer  and  swap 
sizes  but  start  at  end  of  list  and  go  backuards 

Atteiapt  to  reaasign  one  portion  from  original  section 
to  a  new  section  and  calculate  savings.  Merge  only 


th*  on*  with  th*  greatest  savings 
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255 
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V 


nua.in^sec  ■  nun_teaip_sec; 

for  (i»nii«_ln_*ec-1;  i>»0;  i--)  C 
for  {j*0;  j<niiii_of_size*;  ]♦♦)  < 
save.sectl  ■  *1; 
save.sect2  ■  -1; 
save. type  ■  0; 
ssve.org_ply_h*ight  «  0; 
save.cand _ply_height  ■  0; 
save. savings  ■  (float)  0.0; 

for  (iK);  ■<nij«_of_siies;  *•»♦) 
portion.sizesM  *  0; 
portion.pty.height  *  0; 

for  <l“i-1;  l>»0;  I—)  € 

transfer_backuards(i,  j,  I,  cut_cost,  wit.cost,  Mx_s{zes,  nax_ply); 

suap_backuards(i,  j,  I,  cut_cost,  unit_cost,  aiax_sizes,  Mx_ply); 

>  " 

r  •  save.sectl; 
s  >  save.sect2; 

if  (save. savings  l«  (float)  0.0)  { 

printfCREPLAClNG  PORTION  Xd  XdXn",  r,  s); 

in^sectiontr] .ply^height  ■  save.org_ply_heitfnt; 
in_sectionCs].ply_height  »  save.cand  j>ly_height; 

if  (save.org_ply_height  <  save.cand_ply_hei8ht)  < 
in_section(s].ply_h*ighr  «  save.orgjaly^height; 
tcinp_sec.ply_height  •  save.cand _ply_height  - 
ssve.org_ply_height; 

for(tii«0;  i»<nun_of_sizes;  an-*-)  ( 

terp_sec. sizes  Cm]  >  save.in_sect2(ii0 ; 

> 

if  ((in_section  ■  real loc(in_sect ion,  ((nijni_teinp_sec  ♦  1) 

•  sTzeof(seetion_t))))  «*  NULL)  ( 
printf("REALL0CATI0N  ERROR  FOR  INSECTtON  iiaprove2.c«); 
exit(O); 

) 


«aiBcpy(tin_section(nus_tcag>_sec^],  kteep.sec,  sizeof(section_t)); 

else  if  (save.org_ply_h*ight  >  save.cand _pty_h*ight)  < 
in_section[r].ply_h*i^t  *  save.cand _ply_h*ight; 
tsiig>_scc.ply_hcight  •  savc.org_ply_hcight  • 
save. csnd_ply_h*i ght ; 

fordsxO;  sKnusjofjBizcs;  ai*+)  < 

temp_s*c. sizes  DA)  ■  sav*.in_sect1  M; 

>  ” 
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if  (<in_8ection  ■  realloefin_section,  ((rHjn_teflp_sec  ♦  1) 

*  sizeof(section_t))))  NULL)  { 
printfCREALLOCATIOH  ERROR  FOR  INSECTION  iinprove2.c'‘); 
txit(O); 

> 

■Kncpy(tin_tectiontnuR_teinp_sec<-»],  ttenp_sec,  8izeof(section_t)); 


for(MB0;  ■<nij«_of_tize«;  I 

in_«ection[rl .sizetbn]  •  save.orgDa); 
in_sectionCs] .sizes tml  «  save.candtm); 
>  ~ 

> 

>  /*  for  j  •/ 

>  /•  for  i  V 


niin_in_aec  ■  nun_taffip_sec; 
•  •■iergers_po88  i  bl  a; 

V*  while  */ 


/* 

Remove  sections  that  are  empty 

*/ 


for  (i=0;  i<num_in_<ec;  !♦♦)  { 
order_eount  «  0; 

for  (j*0;  j<num_of_sizes;  < 

order_count  *  order_coont  +  in_section[i] .sizestj); 

> 

if  (order_cognt  «  0)  C 

for  <j*i;  j<nun_in_sec-1;  j++)  i 

memcpyCftin^sectiontj],  4in_8ection[j+1J ,  sizeof(8ection_t)>; 

)  " 

nun_in_sec  »  nun_in_sec  -  1; 

>  "  " 

end_time  *  clockO; 

total_time  »  ((double)  end_time  -  start_time)  /  CLK_TCK; 

fprintf (fp,  «\n\n**********************************************\n"); 

tot_length  »  (float)  0.0; 
tot_marker  «  (float)  0.0; 
unit_dev  ■  0; 
order_coont  ■  0; 
unit_count  »  0; 

fprintf(fp,  "THE  «  OF  FINAL  SECTIONS  ARE  ;  Xd\n",  r»jii_in_8ec); 
for  (i«0;  i<nun_in_8ec;  i**)  < 

fprintf (fp,  "SECTION  W  HAS  PIT  ■  Xd\n",  i,  in_sectionti) .ply_height); 
for  (j»0;  j<nijii_of_size8;  ]♦♦)  < 
if  (in_section(i] .sizesCj]  >  0)  < 

fprintf(fp,  "  AND  Xd  SIZE  Xs\n",  in_8ection[i] .sizeslj] ,  order.ch_sizes[jJ ) 

unit_count  ■  unit_count  ♦  (in_8ectiontiJ .sizestj)  *  in_section(i] .ply_height); 

> 


343  > 

344  nrker  ■  f{nd_inches({n^stct{on({]. sizes); 

345  inches  ■  aerker  *  in_sect{on[i].ply_height; 

346  fprintf(fp,  "MARKER  LENGTH  -  X7.2f  TOTAL  LENGTH  ■  X7.2f\n\n",  Mrker,  inches); 

347  tot.lsngth  ■  tot_length  *  inches; 

348  totjnsrker  ■  totjMrker  *  wrker; 

349  >  ” 

350 

351  for  <j»0;  j<nu»_of_si2es;  j++) 

352  order_count  ■  order_coistt  *  order.nuitertj); 

353 

354  u>it_dev  »  orcler_cowtt  ■  unit_count; 

355  if  (unit_dev  >  0) 

356  strcpy(unit_string,  "UNDER"); 

357  else  if  (unit_dev  ■■  0) 

358  strcpy(unit_string,  "\0"); 

359  else  i 

360  unit_dev  ■  unit_dev  *  *1; 

361  strcpy(unit_string,  "OVER"); 

362  >  ~ 

363 

364  fprintf(fp,  "TOTAL  MARKER  «  X7.2f  TOTAL  LENGTH  »  X7.2f\n\n",  tot_iiePker,  tot_length) 

365  fprintf(fp,  "UNIT  OVER/UNDER  «  Xd  Xs",  unit.dev,  ijnit_string); 

366  fprintfffp,  "\n\nTOTAL  TIME  »  Xf\n",  total  tiiite); 

368  • 

369  if  (list  l>  NULL) 

370  free(list); 

371 

372 

373  fclose(fp); 

374 

375  retupn(O); 

376  > 
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INCLUDES  •  iMpdec.h  inplcl.h 
LIBNAME  >  implib 


OBJS  >  \ 

globals.obj  \ 
getpam.obj  \ 
findinch.obj  \ 
cu*_ai{.obj  \ 
compute. obj  \ 
conpsuap.obj  \ 
coiteizc.obj  \ 
conbply.obj  \ 
tranfrwd.obj  \ 
•wapfrwd.obj  \ 
tranbkud.obj  \ 
awapbkud.obj 


S(CC) 

S(LIB) 


globals.obj  :  globals.c  S(INCLUDES) 
getpana.obj  :  getpann.c  S( INCLUDES) 
findinch.obj  :  findinch.c  S(INCLUDES) 


case.aii.obj  :  case_aii.c  S( INCLUDES) 

cofflputa.obj  :  compute. c  $< INCLUDES) 

conpsuap.obj  :  cat<psuap.c  S( INCLUDES) 

combply.obj  :  combply.c  S(INCLUDES) 

combsize.obj  :  combsize.c  S(INCLUDES) 

tranfrud.obj  :  tranfrud.c  S(INCLUDES) 

suapfrud.obj  :  suapfrud.c  S( INCLUDES) 

tranbkud.obj  :  tranbkud.c  S(INCLUDES) 

suapbkud.obj  :  suapbkud.c  $( INCLUDES) 

improve. obj  :  improve. c  S( INCLUDES) 

improve.exe  :  improve. obj  S(OBJS) 
cl  improve  /link  implib.lib 


$(B)\iiqprove.exc  :  improve.exe 
BICP) 


58  $(I)\iiqpdec.h  :  fMpdec.h 

59  »(CP) 

60 
61 


1 

2  *■  SHeader::  Oi/cops/src/improv/suapbkwd.c  February  1990 

3  . *> 

4 

5  /• . 

6  -  FILE  NAME  :  Suapkwd.c 

7  -  PROGRAMMER  :  Terri  A.  Smith 

8  -  DATE  WRITTEN  :  April  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 

10 

11  •  PURPOSE-  Thia  procudure  attempts  to  swap  one  size  from  one 

12  -  with  another  size  in  a  different  section  if  feasible.  It 

13  -  works  from  the  end  of  the  section  list  to  the  start. 

14 

15 

16  . V 

17  #include  <stdio.h> 

18  #include  <malloc.h> 

19  #include  <inemory.h> 

20  #include  <stdlib.h> 

21  #include  <string.h> 

22  #include  "impdec.h'' 

23  ^include  “implcl.h'' 

24 

25  void  swap_backwards(i ,  j,  I,  cut_cost.  unit_cost,  aiax_sizes,  max_ply} 

26  int  i;~ 

27  int  j; 

28  int  1; 

29  int  cut_cost; 

30  int  unit_cost; 

31  int  max_sizes; 

32  int  max_ply; 

33 

34  ( 

35 

36  int  k,  m,  n;  /*  counters  V 

37  int  niin_unit8;  /•  nun_units  in  one  sec*' ion  •/ 

38  ~ 

39 

40  for  (n=0;  n<num_of_sizes;  n»>)  ( 

41  if  ((in_section[i]  .sizesCj]  >  0) 

42  (in_section[l] .sizesCn]  >  0))  { 

43 

44  for  (m=0;  m<nvjn_of_sizes;  !»♦♦)  { 

45  8ect3.sizes[m]  «  in_8ection[i] .sizeslnO ; 

46  8ect4.sizes[m]  «  in_8ectionCl] .sizes [m] ; 

47  > 

48 


49 

sect3.8ize8[j]  •  sect3.8izes(j] 

-  1 

50 

sect3.8izesCn]  >  sect3.sizes[n] 

♦  1 

51 

sect4.size8(j]  *  sect4.sizes(jl 

♦  1 

52 

sect4.sizesCn]  ■  sect4.sizestn] 

-  1 

53 

54 

tefflp_8ave.sect1  >  i; 

55 

tefflp_save.sect2  ■  1; 

56 

tenp_8ave.type  *  0; 

57 

temp_8ave.org_ply_height  ■  0; 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 
87 


tmp_MV*.canelj>ly_hcight  >  0; 
tMp_Mve. savings  >  (float)  0.0; 

conpute_swap_savings(i.  I,  cut_cost,  init_cost,  aiax_sizes); 

nus_units  ■  0; 

for  (spO;  SKnun^of^aizes; 

niis_units  ■  nun_units  *  sect4.  sizes  [ml; 

if  ((tefflp_*sve. savings  >  savc.savings)  U 
(niJB_units  <■  aiax_sizes)  88 
(ta«np_save.type  >  0)  88 
(temp_save.candj3ly_height  <■  nax_ply))  { 

■encpy(8save,  8tcgp_ssve,  sizeof(savings_t)); 

for  <ii»*0;  •<nijii_of_sizcs;  si*+>  i 
if  (teinp_ssve.type  I*  1)  < 

save.orgCm]  «  sect3.sizes[ii0; 
save.candDn]  *  scct4.sizes[m] ; 
save.in_sect1tii0  ■  {n_sectionti]  .sizesDiO; 
save.in_sect2Cm]  >  {n_section[t] .sizeslm] ; 

)  ” 
else 

save.candCml  *  in_sectionCi] .sizes Cm); 

>  /•  for  m  */ 

>  /*  if  V 
>  /•  if  V 
>  /*  for  n  V 
return; 

> 


2  ■*  SHeader::  D:/cops/src/iirprov/suapfrud.c  February  1990 

3  . V 


4 

5  /• . 

6  -  FILE  NAME  :  Swapfrud.c 

7  •  PROGRAMMER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  April  1990 

9  •  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404>  894-8952 

10 

11  -  PURPOSE-  This  procudure  attempts  to  susp  one  size  from  one 

12  -  with  another  size  in  a  different  section  if  feasible.  It 

13  -  works  from  the  start  of  the  section  list  to  the  and. 

14 

15  . V 

16  finclude  <stdio.h> 

17  iinclude  <inalloc.h> 

18  #include  <meawry.h> 

19  #include  <stdlib.h> 

20  #include  <str{ng.h> 

21  finclude  "impdec.h" 

22  #include  "implcUh" 

23 

24 

25 

26  void  suap_f orwardl i ,  j,  I,  cut_cost,  unit_cost,  iiiax_sizes,  max_ply) 

27  int  i;" 

28  int  j; 

29  int  1; 

30  int  cut_cost; 

31  int  unit_cost; 

32  int  max_sizes; 

33  int  max _ply; 

34 

35 

36  < 

37  int  k,  m,  n;  /•  counters  •/ 

38  int  nijn_units; 

39 

40  for  (n=0;  n<n(jii_of_sizes;  w-*’)  < 

41  if  ((in_section[i] .sizeslj]  >  0)  U 

42  (in_section(l] .sizes [n]  >  0))  < 

43 

44  for  (nmO;  m<rKin_of_sizes;  m**'i  < 

45  sec t3. sizes  Cm]  >  in_sectionc{] .sizes  Cm}; 

46  sect4. sizes  Cm]  >  in_sectionCl] .sizes  Cm] ; 

47  > 

48 

49  sect3.sizesCj]  *  sect3.sizesCjl  -  1; 

50  sect3. sizes Cn]  ■  sect3.sizesCrO  *  1; 

51  sect4.aizesCj]  >  sect4.sizesCj]  *  1; 

52  sect4.sizesCn]  ■  sect4.sizesCn]  •  1; 

53 

54  tefflp_save.sect1  ■  i; 

55  temp_save.aect2  •  1; 

5^  tafflp_save.type  >  0; 

57  temp_save.org_ply_height  >  0; 
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ttiip_sav*.cand _ply_hcight  >  0; 
tmp_savc.aavingt  ■  (float)  0.0; 

coiiiputa_aMap_aavi'ng8(i,  I,  cut.coat,  wiit.coat,  aiax^aizea}; 
nijii_un{ta  «  0; 

for  (hibO;  ia<ntjn_of_a{zes;  m*-*') 

nun_unita  •  nuii_unita  *  aect4.aizes[in]; 

if  ((tenp_aave.aavinga  >  aave.aavinga)  U 
(nuM.wita  <*  nax_8izea)  U 
(tamp^aave.type  >  0)  U 
(tafflp_aave.cand_plyjieiaht  <«  Mx_ply))  C 
MoicpyCtaave,  tte«np_aave,  aizeof(aavinga_t)); 

for  (hbO;  ■<nkjn_of_aizea;  •»♦)  t 
if  (tenp.aave.type  I*  1)  < 

aave.org  Ctn]  ■  aect3.aizea[ni]; 
aave.eandtin]  >  8ect4.aize8[in]; 
aave.in_aect1  Cm]  >  in_aectionti] .aizeaCm] ; 
aave.in_8ect2Cni]  >  injaectiontU  .aizesCm] ; 

else 

aave.candCm]  >  in_8ection[i] .aizesDiO ; 

)  /*  for  m  */ 

)  /•  if  */ 

>  /*  if  */ 

)  /*  for  n  V 


> 


return. 
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6 

•  FILE  NAME  :  Tranbkwd.c 

7 

-  PROGRAMMER  :  Terri  A.  Smith 

8 

•  DATE  URITTEN  :  April  1990 

9 

-  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-8952 

10 

- 

11 

•  PURPOSE-  This  procudure  attempts  to  transfer  one  size  from  one 

12 

-  section  into  another  section  if  feasible.  It  works  from 

13 

-  the  end  of  the  section  list  to  the  start. 

14 

- 

IS 

- 

"•  / 

17 

finclude  <stdio.h> 

18 

iinclude  <inalloc.h> 

19 

#incliide  onemory.hr 

20 

#include  <stdlib.h> 

21 

#incltxie  <string.h> 

22 

finclude  “impdec.h" 

23 

#include  "implcl.h*' 

24 

25 

void  transfer_backwards(i,  j,  1,  cuc_cost,  unit_cost,  inax_sizes. 

max_ply) 

26 

int  i; 

27 

int  j; 

28 

int  1; 

29 

int  cut_cost; 

30 

int  unit_.eost; 

31 

int  niax_«i^.es; 

32 

int  max_ply; 

33 

34 

< 

3S 

36 

int  k,  m;  /*  counters  */ 

37 

int  niin_units;  /•  nun_units  in  one  section  */ 

38 

39 

if  (in_section(i] .sizeslj]  >  0}  < 

40 

for  (nmO;  m<nan_of_sizes;  m*-+)  ( 

41 

sect3. sizes  (ml  *  in_sect{on(i].sizes[in]; 

42 

sect4.sizeslm]  ■  in_section(l] .sizes [ml; 

43 

> 

44 

45 

sect3. sizeslj]  ^  sect3. sizeslj]  -  1; 

46 

sect4. sizeslj]  «  sect4. sizeslj]  *  1; 

47 

portion. sizeslj]  =  1; 

48 

portion. ply_hei9ht  *  in_sectionli] .ply_height; 

49 

50 

temp_save.sect1  ■  i; 

51 

tefflp_save.sect2  ■  1; 

52 

temp_save.type  ■  0; 

53 

temp_save.or8j9ly_hei9ht  ■  0; 

54 

tenp_ssve.cand_ply_hei9ht  ■  0; 

55 

temp_save. savings  ■  (float)  0.0; 

56 

57 

cofflpute_savings(i,  1,  cut_cost,  tf)it_cost,  max_sizes); 

58 
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nuii_unitt  >  0; 

for  <ii«0;  M<niJi_of_t{ZM; 

nun_units  ■  mn^units  *  sect4.«{zes[ffi]; 

if  ((ttnp_Mve.Mvings  >  tavo.Mvings)  U 
(nuni_units  <*  nax.sizes)  tt 
(tanp_save.type  >  0)  U 
(tcap_aave.cand_ply_height  <*  Mx_ply))  { 
awiiicpyC&aavc,  8teap_aave,  aizeof(aavings_t)); 

for  (tazO;  ■KrKft_of_a{zea;  w&*i  C 
if  (tenp.aave.type  i>  1)  < 
aava.orgM  ■  aact3.aiza8[m]; 
aave.candDB]  ■  acct4.aiza8M]; 
aave.in_aect1  Da]  >  fn_aaction[{].a{zcaDa]; 
aava.in_aact2tai]  ■  in_aaction[l].aizaata]; 
>  " 
clae 

aave.candCm]  ■  in.aectionli]  .aizeaDd ; 

> 

> 

> 

return; 

> 
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2  ••  SHeader::  0:/cops/src/iinprov/tranfrwd.c  February  1990 

3  . V 

4 

5  . . 

6  •  FILE  NAME  :  tranfrwd.c 

7  -  PROGRAHNER  :  Terri  A.  Smith 

8  •  DATE  WRITTEN  :  April  1990 

9  -  ADDRESS  :  GTRI/CSITL  Atlanta  GA  30332  (404)  894-89S2 

10 

11  *  PURPOSE*  This  procudure  attempts  to  transfer  one  size  from  one 

12  •  section  into  another  section  if  fessible.  It  works  from 

13  •  the  beginning  of  the  section  list  to  the  end. 

14 

15  . */ 

16  #include  <stdio.h> 

17  #include  <malloc.h> 

18  #include  <meaiory.h> 

19  finclude  <stdlib.h> 

20  #include  <string.h> 

21  #include  <time.h> 

22  #include  "impdec.h" 

23  #include  "implcl.h" 

24 

25  void  transfer_forward(i,  j,  1.  cut_cost,  unit_cost,  max_sizes.  siax _ply) 

26  int  i; 

27  int  j; 

28  int  1; 

29  int  cut_cost; 

30  int  unit^cost; 

31  int  niax_sizes; 

32  int  inax_ply; 

33 

34  { 

35 

36  int  k,  m;  /*  counters  */ 

37  int  num_units;  /•  rHjn_units  in  one  section  */ 

38  ~ 

39  if  (in_sectionCi]  .sizestj]  >  0)  < 

40 

41  for  <m=0;  flKnun_of_sizes;  m»+)  < 

42  8ect3. sizes  Cm]  «  in_sectionCi]  .sizesCm] ; 

43  8ect4. sizes  Cm]  »  in_sectionIl] .sizesCm]; 

44  > 

45 

46  sect3.sizesCj]  ■  sect3.sizeslj]  -  1; 

47  sect4.sizesCj]  ■  sect4.sizes[j]  1; 

48  portion. sizesCj]  *  1; 

49  portion. ply_height  »  in_seetionti] .ply_height; 

50 

51  temp_save.sect1  «  i; 

52  tefflp_save.sect2  *  1; 

53  tenp_save.type  ■  0; 

54  tefflp_save.org_ply_height  »  0; 

55  temp_save.cand_ply_height  ■  0; 

56  temp_S8ve. savings  ■  (float)  0.0; 

57 
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canput«_uv<ngs({,  I,  cut_cost,  unit.cost,  nax_s{zts>; 

nun_units  >  0; 
for  <m»0;  xnijii_of_>1zes; 
nuii_un<ts  *  nuii_unitB  *  •ect4.sizestn]; 

if  ((teap_save. savings  >  save. savings)  U 
(num_ijnits  o  ■iax_sizes)  U 
(tenp_savc.type  >  0)  U 
(tenp_save.cand_ply_height  <*  mx_ply))  I 
isemcpyCtsave,  8tefflp_savc,  sizeof(savings_t)); 

for  <iii»0;  ■<nm_of_sizes;  sh-»)  < 
if  (tenp_savc.type  l«  1)  < 
save.orgCn]  •  scct3.sizes[i0; 
save.candDm  >  scct4.sizes[ia]; 
save.in_sect1Cfli]  *  in_section[i] .sizesDn] ; 
save.in_sect2Cn]  >  in.sectionCtl.sizesDnl; 

> 

else 

save.candCm]  «  in_sectionti].sizes[ml; 

)/*  for  m  */ 

) 

>  /*  if  */ 


return; 

> 


